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IDENTIFICATION 
PRODUCT CODE: AC -6761H-MC 
PRODUCT NAME; CZDZAMO 0Z11 LN ASYNC MUX TSTS 
PRODUCT DATE: JUNE 1964 
MAINTAINER : MK-DIAGNOSTIC ENGINEER TNG 


THE INFORMATION IN ‘HIS DOCUMENT IS SUBVECT 10 
NOTICE AMD SHOUD WOT 

EQUIPMENT CORPORA. (ION. OIGITA EQUIPHENT 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 


WO pot ee 'SILITY IS ASSUMED FOR THE USE OR RELIABILITY 
EQUIPMENT 


OF SOF TWA THAT IS NOT SUPPLIED BY DIGITAL 
OR ITS AFFILIATED COMPANIES. 


COPYRIGHT (C) 1976,1961,1984 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORA. ION: 


DIGITAL PoP , UNIBUS MASSBUS 
DEC DECUS DEC TAPE 


CHANGE WITHOUT 
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as 
aa 
a? i. ABSTRACT 
48 
ag THE FUNCTION OF THE 0Z11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
50 ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE 0211 
S1 OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 
S2 

| 53 PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY EITHER ‘AUTO SIZING’ OR 
Sa INPUT FROM THE USER ON THE CONSOLE BY HAVING SWOO-] AT START TIME. AUT 
55 SIZING WILL BE DOME ONLY TME FIRST TIME THE PROGRAM IS STARTED AND 
56 720 AND SWO0s0 MOD SWOS"0. THE AUTOSIZER IS DESIGNED 10 £O€TECT 
s7 02 ADORESSES AND VECTORS AND TME 0211 THAT 

IS OETECTED IS AN EIA OR 20MA BOARD. REMAINING OEF AA 
59 TO CERTAIN VALUES (SEE SEC.6.5). CONSOLE INPUT MAY BE CONTROLLED AT ANY 
60 START TIME THROUGH THE USE OF SWOO, SWOS, SWO4, AND SWO6 (SEE SEC. 4.1.1 
“ FOR A DETAILED DESCRIPTION OF THESE SWITCHES). 
63 CURRENTLY THERE IS ONE ore OIAGNOSTIC (CZDZA). ONE SYSTEM 
64 FOR DEC X/11 (OZAA), AND AN ONLINE OVERLAY FOR DZITA (ITEP) - 02028. 
4 (ITEP) - OZDZB. 
67 CZDZA WILL TEST ALL ae OF THE 0211 SUCH AS CABLES, DIST PNM. 
= INTERFACE MODULE ITSEL 
re 2. REQUIREMENTS 
1 

L 2.1 EQUIPMENT 
74 ANY POP1L FAMILY CPU (WITH MINIMUM 6K MEMORY) 
75 ASR 33 (OR EQUILIVALENT FOR CONSOLE 
76 0Z11 INTERFACE MODULE (M7819( EIA), M7814( 20MA)) 
77 43271 STAGGERED TURNAROUND CONNECTOR FOR EIA MODULE. 
i} 43190 STAGGERED TURNAROUND CONNECTOR FOR 20MA MODULE. 
79 4325 CABLE TURNAROUND AND DIST PML TESTING FOR EIA MODUE. 
- 4315 THIS MAY BE SUBSITUTED FOR H325. 
82 NOTE: A STAGGERED TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST THE 
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2.2 


3.1.1 


3.1.2 
3.1.3 


PROGRAM WILL USE ALL 6K OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 2000 ARE ESPECIALLY TO BE NOTED AND TO BE 
UNTOUCHED BY OPERATOR AFTER PARAMETERS WAVE BEEN INPUT FROM CONSOLE 
(SWwOOe1); OR AFTER THE ‘AUTO SIZING’ MAS BEEN DONE. THESE LOCATIONS 
ian nak Meee THEIR MEANING AND DIFFERENT 


METHOD 


ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE wey USING THE ABSOLUTE 
LOADER. NOTE: IF THE OIAGNOSTICS ARE ON MEDIA SUCH AS DISK 
»MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 


ABSOLUTE LOADER STARTING ADDRESS «500 


MEMORY « SIZE 
ax 17 

8K 37 

12k $7 

16K 77 

20K 117 
24K 137 
26K 157 


PLACE ADORESS OF ABS LOADER INTO SWITCH REGISTER. 
CALSO PLACE ‘HALT’ SW UP) 


DEPRESS ‘LOAD ADDRESS’ KEY ON CONSOLE AND RELEASE. 


DEPRESS ‘START KEY’ ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW BE 
LOADING INTO CPU) 
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| 42? 
| 438 
| 129 4. STARTING PROCEEDURE 
130 
| 4a A. SET SWITCH REGISTER TC 000200 
132 B. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 
138 C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SET SWOO*1 FOR USER PARAMETER 
134 INPUT FROM . ON FIRST START IF SWO7*1 AND SWO0O°0 
135 THE PROGRAM WILL DEFAULT TO CONSOLE P TER (SWO0#1). 
136 D. OE€PRESS ‘START KEY’ AND RELEASE, THE PROGRAM WILL TYPE MAINDEC NAME 
137 AND PROGRAM WAME (IF THIS WAS THE FIRST START UP OF THE PROGRAM OR 
138 PARAMETERS WERE CHANGED BY SWOO-1) AND ALSO THE FOLLOWING: 
139 
140 ‘MAP OF 0Z11 STATUS’ 
141 1500 160100 
142 1502 
143 1504 000005 
144 1506 000377 
145 1510 017070 
146 1512 000000 
1 
148 THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS TABLE 
149 STARTING AT ADO. 1500 IN THE PROGRAM. THE STATUS TABLE MUST BE 
150 VERIFIED BY THE USER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS 
151 TABLE SEE SECTION 8.4 FOR HEL 
152 THE PROGRAM WILL TYPE naneenas* AND PROCEED TO RUN THE DIAGNOSTIC. 
134 4.1 CONTROL SWITCH SETTINGS 
156 NOTE: IF THERE IS NO REAL SWR (177570); SWR MAY BE MODIFIED AT 
157 LOC:176 OR BY HITTING CONTROL “G” <tG> ON CONSOLE TERMINAL. 
159 SW 15 SET: HALT ON ERROR 
160 SW 14 SET: LOOP ON CURRENT TEST 
161 SW 13 SET: INHIBIT ERROR PRINT 
162 SW 12 SET: INHIBIT eeALLee TYPE OUT/BELL ON 
163 SW 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 
164 SW 10 SET: ESCAPE TO NEXT TEST 
165 SW09 SET: LOOP WITH CURRENT 
166 SW 08 SET: CATCH ERROR AND LOOP ON IT 
167 SW 07 SET: NO AUTO SIZE. IF 1ST START OF PROGRAM AFTER LOADING THE 
168 OPERATOR MUST INPUT ADORESS AND VECTOR FROM CONSOLE. 
169 SW 06 SET: RESELECT 0211'S DESIRED ACTIVE 
170 SW 05 SET: RESERVED 
171 SW 04 SET: SELECT DELAY PARAMETER (SEE SEC. 4.1.1) 
172 SW O03 SET: EXTRA PARAMETER INPUT (SEE SEC. 4.1.1) 
173 SW 02 SET: LOCK ON SELECTED TES 
174 eeSW 01 SET: RESTART PROGRAM AT SELECTED TEST 
175 eSW 00 «SET: GET USERS PARAMETERS FROM CONSOLE 
177 ° FOR ECHO OR CABLE TESTS (PROGRAM STARTED AT LOC. 210) Tus 
178 SWITCH SET TO 1 ALLOWS THE USER TO TYPE IN THE VECTOR AND T 
17° CSR FOR THE 0Z11 UNDER TEST. 
14 os FOR ECHO OR CABLE TEST THIS SWITCH SET TO 1 ALLOWS THE SELECTION 
18, OF EITHER THE ECHO OR CABLE TEST, BAUD RATE, AND THE LINE NUMBER 
1 ’ 
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SEQ 5 
bs) 


SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 

Sw 00 GET USERS PARAMETERS FROM CONSOLE. SETTING THIS SWITCH AT START 
vP TIME ALLOWS THE USER TO INPUT AT THE CONSOLE TERMINAL THE 
FOLLOWING P : BASE DEVICE ADDRESS. BASE VECTOR ADORESS. 
BUS REQUEST LEVEL. DECLARE EIA OR 20MA ° 
Cex ° » OR . AD OF 0211'S THAT 
ARE . THIS SWITCH ALONE DEFAULTS THE FOLL 
PARAMETERS: ALL 6 LINES ARE SET TO BE TESTED ON EACH 0211, ay 
DEFAULT BAUD RATE IS SET AT 9600 BAUD, AND THE CHARACTER LENGTH 

FOR THE MAJORITY OF TESTING IS SET AT EIGHT BITS PER CHARACTER 
WITH TWO STOP BITS. 

SW O03 EXTRA PARAMETER INPUT. SETTING THIS SWITCH AT START UWP TIME 
PROV THE USER WITH THE ABILITY TO SET THE LINES ACTIVE FOR 
TESTING AND TO THE RATE MAJORITY 
OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 

SW 04 SELECT DELAY PARAMETER. THE DELAY PARSMETER THIS SWITCH CONTROLS 
OETERMINES TME LENGTH OF TIME THE PROGRAM STALLS WAITING FOR A 
CHARACTER TO BE COMPLETELY TRANSMITTED OR RECEIVED. THIS DELAY 
COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME FOR THE 
OEF AULT 5 OMe CATE SCE ep an See, Ne ee 2 ee 
WITH BIPOLAR MEMORY. WHEN RUNNING THIS PROGRAM ON A FASTER 
PROCESSOR THE DELAY PARAMETER SHOULD BE ADJUSTED PROPORTIONALLY 
HIGHER THAN THE FOLLOWING DEFAULTED VALUES: 

2450 sTIME FOR SO BAUD 
1560 sTIME FOR 75 BAUD 
1120 sTIME FOR 110 BAUD 
0750 sTIME FOR 134 BALD 

sTIME FOR 150 BAUD 
0330 sTIME FOR 300 BALD 
0150 sTIME FOR 600 BAUD 
0060 sTIME FOR 1200 BAUD 

sTIME FOR 1800 BAUD 
0030 sTIME FOR 2000 BAUD 
0020 sTIME FOR 2400 BAUD 
0019 sTIME FOR 3600 BALD 
0001 sTIME FOR 4600 BALD 
0001 s TIME FOR 7200 BAUD 
0001 sTIME FOR 9600 BAUD 
0001 sTIME FOR 19.2 KBAUD 

eee NOTE eee 


19.2% BAUD IS AN UNSUPPORTED BAUD RATE. IT SHOULD NOT NORMALLY BE USED. 
9600 BAUD IS THE SPECIFIED MAXIMUM. 
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4.1.2 


METHOD ; 


SWITCH REGISTER RESTRICTIONS 


SW 06 


one,» 


nam 


SW 01 


RESELECT 0211'S DESIRED ACTIVE. PLEASE NOTE THAT A MESSAGE IS 
TYPED OUT FOR SETTING THE SWITCH REGISTER EQUA TO 0211'S 
ACTIVE. THIS MEANS IF THE SYSTEM HAS FOUR 0211S; aiTs 
00,01,02,03 WILL BE SET IN LOC ‘OZACTV’' FROM THE SWITCH 
REGISTER. USING THIS SWITCH( SWO6 ) ALTERS THAT 
LOCATION; THEREFORE IF FOUR 0Z11S ARE IN THE SYSTEM eee00 NOTses 
SET SWITCHES GREATER THAN SW OS IN THE WP POSITION. THIS WOULD 
BE A FATAL ERROR. DO NOT yo MORE ACTIVE 0211S THAN HAS BEEN 

GIVEN peeee sae ABOUT IN PARAMETER INPUT (SWOO-1) 


WILL 
SET THE BINARY NUMBER OF 0211S DESIRED ACTIVE EXAMPLE: i) 
OZ11; 32 OZ1l; 73 OZ11; 1794 0211 37*5S OZ1i ETC/AA PRESS 


NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05) 
SET WITH ANY OTHER SWITCH SETTINGS DESIRED. PRESS CONTINLE. 


+ et By ny aT je TEST IT IS STRONGLY 
HAS BEEN MADE 


TEST. OTHER WORDS; EACH 
THE FIRST 0211 WILL BE SELECTED TO BE UNDER TEST UNLESS Swoé IS 
USED TO SELECT ONLY ONE. 


LOOP ON CURRENT DATA: THIS SWITCH WILL ONLY WORK IF CALL 
‘SCOP1' IS IN THAT TEST. THE REASON BEING THAT MOST TESTS DEAL 
WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BE SINGLED OUT 

THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TROUBL 
SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 
TO BE USED AS A GENERAL USER CONTROL SWITCH. 


og DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
TOO SHORT A DELAY WILL CAUSE VALID TESTS TO FAIL ON CERTAIN 


SCOPE L E.G, SW 14,9,4,1 SET; SW 9,4, 
2.1 THE Se PARAMETER ITS 1; THE LONGEST ACCEPTED IS 
177776. (SEE SEC. 4.1.1) 
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4.1.3 SWITCH REGISTER PRIORITIES 


1. SW 12 O€LETE PRINT OUT/BELL ON ERROR. 

2. SW 135 DELETE ERROR PRINTOUT. 

3. SW 15 HALT ON THE ERROR. 

4. SW 08 GOTO BEGINNING OF THE TESTCON ERROR). 
5 SW 10 GOTO NEXT TESTCON ERROR). 


1. SW 09 (IF ENABLED BY ‘SCOP1'). IF AN ‘e’ IS PRINTED IN FRONT OF 


IF USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 
ISOLATE SIGNAL PROBLEMS ON THE 0Z11 MODULE. 
IF Swoo IS WOT ENABELED; AND THERE IS A sHARDe ERROR 
(CONSTANT); SWO6 IS BEST. 

2. FOR INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SWO1 AND 
SWO2 SET WHICH WILL ALLOW THE USER TO LOCK ON A SELECTED TEST, 
OR ELSE SET SWi4 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 
Swi4 WILL o_o TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 


ERROR . 
3. SW 14 LOOP ON CURRENT TEST. 
4.2 STARTING ADDRESS 


SA 200 - ADORESS 200 IS FOR NORMAL EXECUTION OF THE DIAGNOSTIC. THIS 
WILL 00 THE MAJOR TESTING NECESSARY FOR VERIFICATION OF 


SA 210 - CABLE/ECHO - TERMINAL TESTS. STARTING AT ADDRESS 210 WILL GIVE 
THE USER THE OPTION TO VERIFY THE EIA CABLES AT THE DIST PNL OR 
ay + TRUE LINK TO ANY DEC SUPPORTED TERMINAL SUPPORTED BY 


NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT IS _ UNDER 
ACT11 OR XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER sALL* 
eo 0Z11'S ARE TESTED THE PROGRAM WILL RETURN TO ‘XXDP’ OR 


5. OPERATING PROCEDURE 


WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION FOUR 
WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING THE DIAGNOSTIC. 
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5.1 


NORMAL START OF DIAGNOSTIC 
ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200; IF AUTO 
SIZING IS NOT USED OR WHENEVER SWOO*1; THE FOLLOWING QUESTIONS 
ARE ASKED AND MUST BE ANSWERED. 

“1ST CSR ADORESS (160000:163700): “ 


YOU MUST TYPE IN THE FIRST 0Z11 CSR IN THE SYSTEM YOU WISH 
TESTING TO BEGIN AT. RANGE: 160000: 163700 


“1ST VECTOR ADDRESS (300:770): “ 


YOU MUST TYPE IN THE VECTOR OF THE FIRST OZ11 IN THE SYSTEM 
UNDER TEST. RANGE 300:770 


“BR LEVEL (4:6): ” 


TYPE IN THE PRIORITY LEVEL OF THE a THAT THE ABOVE 
INFORMATION HAS BEEN GIVEN ABOUT. RANGE 4 OR 5S OR 6. 


“TYPE “A” FOR EIA MODULE OR “B” FOR 20MA (A:B): “ 


TYPE “A” IF RUNNING A 0Z11-A,8.E (EIA). 
TYPE “6” Tr RUNNING A _0Z11-C-D.F (20MA). 
TYPING A <CR> DEFAULTS TO EIA MODULES 


“MAINTENANCE MODE 

(EXTERNAL <H325>-EIA ONLY ¢ 
(INTERNAL <DZCSRO3=-1> ¢ 
(STAGGERED <H3271>-EIA ONLY ¢ 
(STAGGERED <H3190>-20MA ONLY ¢ 


TYPE “E” OR “I” OR = DEPENDING ON WHICH MODE YOU WISH TO RUN 
IN. If RUNNING “EXTERNAL”; ALL SELECTED LINES MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR. 


CZDZA-HO 
CZOZAH.P11 


J1 


SEQ 9 


MACY11 30A(1052) 19-JUN-864 16:22 PAGE 9 
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“@ OF 0211'S <IN OCTAL> (1:20): " 


TYPE TOTAL NUMBER OF 0Z11'S TO BE TESTED IN THE SYSTEM. RANGE 
IS 1 THRU 20 IN OCTAL. 


eeeseeeese IF SWOS*1] THEN seseesese 
IF SWOS*1 THE FOLLOWING WILL BE PRINTED. 


“LINES ACTIVE BY BIT <IN OCTAL> (001:377):” 


EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES MAY BE 
SELECTED (HOWEVER IN STAGGERED MODE TWO ADJACENT LINES MUST BE 
SELECTED (0-1, 2-3, 4-5, 6-7)).. 


“DEFAULT BAUD RATE <IN OCTAL> (00:16): “ 


en he BR Gt THE O€FAULT BAUD RATE 
USED IN APP. 90 PERCENT OF TEST. BAUD RATE CHOICES ARE: 
“0o"( SO BAUD). "017°C 7S BAUD).”"02"( 110 BAUD)."03"( 134 BALD), 
“04"( 150 BAUD), ”"05"( 300 BAUD). "06 "( 600 BAUD). “07"( 1200 BAUD). 
“10"(1800 BAUD). "11°C 2000 BAUD), ”“12"( 2400 BAUD), ”“135"( 3600 BAUD), 
“14"(4800 BAUD), “15"( 7200 BAUD), "16"( 9600 BAUD), “17"(19. 2 ag 
LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN THE 
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 

eee NOTE eee 

SPEED SELECT CODE 17 CAN BE USED TO SELECT 19.2k BAUD, BUT THIS 
SPEED IS NOT SPECIFIED BY DEC, AND SHOULD NOT NORMALLY BE USED. 


SHREGAREEARHASOSKSSESRADSSSAELESKESOHS 


It Is i. ven TO NOTE THAT ALL 0211'S IN THE SYSTEM MUST BE 


PUT SWO0O=1 
ZSTIONS ABOUT 0Z11 UNDER TEST AND INDICATE ONLY 1 0Z11 
IN THE SYSTEM. IF THE STATUS MAP IS TO BE “PATCHED” IT MUST BE 
DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 
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410 
41 
4il 5.2 HOW TO RUN THE "CABLE/ECHO” TESTS. 
412 
413 NORMAL STARTING FOR THE FIRST TIME WOULD BE: LOAD ADDRESS 210; START 
414 WITH THE SWR EQUAL TO 003. 
415 NOTE: SWOO=1 ASKS FOR “VECTOR” AND “CSR” 
416 SWOl*1 ASKS FOR “WHICH TEST ECHO OR CABLE”, "BAUD RATE”, “LINE” 
417 UNDER TEST. PROGRAM WILL PRINT OUT: 
418 
419 “VECTOR ADORESS-” 
420 
421 yOu TYPE VECTOR WITH A <CR>. 
422 
423 “CONTROL REGISTER ADORESS-” 
824 
= YOu TYPE IN OZCSR UNDER TEST. 
a2? “WHICM TEST ? ECHO OR CABLE (E OR C)” 
42o9 LETS DO THE CABLE TEST FIRST. *eTHIS TEST IS ONLY TO BE DONE ON 
430 THE EIA VERSION OF THE DZ11 NOT THE 20MA VERSION”. TYPE “C” 
431 <CR> 
432 
= “BAUD RATE- ” 
4 
435 TYPE EXTHER SO, 110, 135, 150, 300, 600, 1200 1800, 2000, 2400, 
—- 3600, 4800, 7200, 9600 FOLLOWED BY <CR> 
on “LINE: ” 
440 YOU TYPE THE LINE WHICH HAS THE W325 TEST CONNECTOR. (TYPE 
aan EITHER O, 1. 2. 3. 4. 5. 6. 7) PROGRAM WILL THEN PRINT: 
= “CABLE TEST” 
a AND IF EVERYTHING IS WORKING; THE FOLLOWING WILL BE PRINTED: 
447 “PASS DONE.” 
aga “PASS DONE.” 
44g ETc. 
450 TO CHANGE LINES; HIT ANY PRINTING KEY ON YOUR CONSOLE TERMINAL 
451 WHILE THE PROGRAM IS RUNNING AND THE FOLLOWING WILL BE PRINTED: 


NOW CHANGE THE H325 TEST CONNECTOR TO ANOTHER LINE AND TYPE THE 
NEW LINE. PROGRAM WILL THEN PRINT: 


“CABLE TEST” 
“PASS DONE.“ 
“PASS DONE. “ 


CONTINUE THIS OPERATION UNTIL ALL LINES ARE TESTED. 
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4s2 
463 
Aba 5.3 ECHO TEST 
465 
466 IF PROGRAM HAS ALREADY BEEN STARTED AT 210 AND THE VECTOR AND ADDRESS 
467 HAVE BEEN TYPED IN; JUST LOAD ADORESS 210 AND START UITH SuR EQUAL TO 
468 002. PROGRAM WILL PRINT: 
469 
470 "WHICH TEST ? ECHO OR CABLE (E OR C)” 
471 
a72 NOW TYPE AN “E” TO DO THE ECHO TEST. PROGRAM WILL PRINT: 
473 
474 “BAUD RATE-" 
& 
476 TYPE BAUD RATE AT WHICH THE TERMINAL IS SET THAT IS CONNECTED TO 
a7? THE 0Z11 DIST PML. BAUD RATE CHOICES ARE: SO, 75. 110, 135, 150 
478 300, 600 , 1200, 1600, 2000, 2400, 3600, 4800, /200, 9600. THE 
479 PROGRAM WILL THEN PRINT: 
481 LINE: “ 
483 TYPE The LINE THE TERMINAL IS CONNECTED TO AT THE DIST PML THEN 
ass THE PRUGRAM WILL PR 
436 "TERMINAL ECHO TEST” 
488 @>e AT THIS POINT THE MESSAGE: 
40 “THE QUICK BKUWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789" 
492 SHOULD BE PRINTED ON THE TERMINAL CONNECTED TO THE 0211. IF 
493 THIS MESSAGE IS DESIRED TO BE CONTINIOUSLY OUTPUT; SET THE SUR 
49a TO 377 (SWR=377) WHILE IT IS BEING OUTPUT OR WHEN THE LINE NO. 
495 IS REQUESTED ABOVE. UMEN THIS MESSAGE TS DONE AND THE SUR IS NOT 
496 EQUAL TO 377; THE CONSOLE WILL PRINT: 
498 “TYPE A CHAR. ON 0Z11 TERMINAL” 
500 ANY PRINTABLE CHAR HIT ON 0Z11 TERMINAL SHOULD BE ECHOED BACK ON 
501 THE TERMINAL. eIF YOU HIT CNTRL C <tC> ON THE DZ11 TERMINAL 
502 THE PROGRAM WILL PRINT: 
504 “PASS DONE.” 
506 ON THE CONSOLE TERMINAL AND THE “QUICK BROWN FOX” WILL BE 
507 PRINTED ON DZ1i1 TERMINAL AGAIN AND THE ECHO TEST WILL BE 
508 RUNNING. TO CHANGE LINES: TYPE ANY PRINTABLE CHARACTER ON THE 
509 CONSOLE TERMINAL (NOT THE DZ11 TERMINAL). THE PROGRAM WILL AGAIN 
510 TYPE “LINE: ” AND WAIT FOR A RESPONSE. 
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6.2 


PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM CONTROL SWITCHES an. on IN THIS OIAGNOSTIC 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH S Sa nae kekmatte aa 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 

SHOULD BECOME aes Oe ne en See ee nee 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 


WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 
OUT AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR). 
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT 
THEN LOOK IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND PC_ TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 15-0 AND SW 12°0). IN MOST 
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 

WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


ERROR RECOVERY 


eR Ry Bg Ry HANG THE BUS’ (GAIN CONTROL OF 
SO THA TSCONSOLE MANUAL FUNCTIONS ARE INRIBITED) AN INIT OR POMER DOWN/UP 
Is NECESSARY FOR OPERATOR TO REGAIN CONTROL CPu. IF THIS SHOUD 
HAPPEN; LOOK IN wit ‘$TSTNM’§=6 (BYTE 1122) FOR THE NUMBER OF THE 
TEST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS 
WAY THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE D0Z11 WAS DOING AT THE 
TIME OF THE ERROR. 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

STATUS TABLE SHOULD a. VERIFIED REGARDLESS OF HOW PROGRAM WAS STARTcD. 


ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH THE INFORMATION 
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS. 


5 
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SSS 
S56 
$57 7.2 OPERATING RESTRICTIONS 
S58 
559 PARAMETER MUST BE INPUT FROM USER OR APT IF “AUTO SIZING” IS NOT USED. 
560 
561 
S62 MISCELLANEOUS 
S63 
564 8.1 EXECUTION TIME 
S65 
566 ALL 0Z11 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS' MESSAGE (PROVIDING 
S67 NO ERRORS AND SWi2°0) WITHIN 2 MIN. THIS IS ASSUMING SW1i-1 (INHIBIT 
568 ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. THE ACTUAL 
569 EXECUTION TIME DEPENDS GREATLY ON THE PDP11 CPU CONFIGURATION. AN 11/40 
$70 CORE MEMORY WILL TAKE AROUND 100 SECONDS TO EXECUTE A PASS WITH NO 
$71 ITERATIONS AND ABOUT 400 SECONDS TO EXECUTE A FULLY ITERATED PASS. ANY 
572 OTHER PDP11 CPU — WILL EXECUTE A PASS IN TIME PROPORTIONAL TO THE 
as EXECUTION SPEED OF THE CPU ‘'S MEMORY IN RELATION TO THAT OF AN 11/40. 
thy 8.2 PASS COMPLETE 
$77 NOTE: sEVERYe TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN AS IF 
578 cui: (DELETE ITERATIONS) WAS UP (#1). THIS IS TO ‘VERIFY NO sHARDs 
$79 ERRORS' AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS -EACH TIME 
580 PROGRAM IS STARTED- WILL BE A ‘QUICK PASS’ UNTIL ALL 0211'S IN SYSTEM 
$81 ARE TESTED. WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
= AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 
i } END PASS CZDZA-H CSR: 160010 VEC: 300 PASSES: 000001 ERRORS: 
586 NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 


587 THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 
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KEY LOCATIONS 
SLPADR (1126) 


STATUS MAP 
(1500 )-( 2000) 


OZACTV (1404) 


$BASE (1310) 


Be 


SEQ 14 


CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
Laat a COUNT IS REACHED OR IF LOOP ON TEST IS 
CONTAINS THE ADORESS OF THE NEXT TEST TO BE PEFORMED. 
CONTAINS THE NUMBER OF THE TEST NOW BEING PEFORMED. 

THE BIT IN ‘RUN’ ALWAYS POINTS ONE PAST THE 0711 
CURRENTLY BEING TESTED. EXAPPLE : (RUN) 
1304/0000000001000000 MEANS THAT 0Z11 NO.05 IS THE OZil 
NOW RUNNING. 


THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 10 TEST 
w TO i 6 (OECTA) 0211S SEQUENTIALY. THEY CONTAIN THE 
ar ae ATUS CONCERNING THE CONFIGURATION OF 
EACH @IT SET IN THIS LOCATION INDICATES THAT THE 
ASSOCIATED OZ11 WILL GE TESTED IN TURN. EXAMPLE: 
(COZACTV) 1300/0000000000011111 MEANS THAT OZ11 NO 
00,01,02,03,04 WILL GE TESTED. EXAMPLE: ( v) 
1300/0 10001 MEANS THAT 0Z11 NO. 00,04 WILL 

CONTAINS THE RECEIVER CSR OF TME CURRENT 0Z11 UNDER 





ee 


659 SPECIFIC CONFIGURATION. 
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€1? 

618 8.40 MORE ON THAT ‘STATUS TABLE’ (1500-2000) 
619 
620 ‘MAP OF 0211 STATUS’ 

| 621 1500 160100 
622 1502 
623 1504 000005 
624 1506 000377 
625 1510 017070 
626 1512 000000 
627 
628 
629 THE ABOVE INFORMATION WILL GE REPEATED FOR GAGs OF We TO 16 O£13°S De 
630 THE SvsTen nest WILL FOLLOW UNDER THIS TABLE). EXPL 
631 1500 oo nds Is we SYSTEM CONTROL REGISTER FOR THE ist 0Z11 IN 
6 
633 1502 000300 TMIS IS VECTOR ‘A’ FOR THE FIRST 0211 IN Te SYSTEM. 
634 1504 000005 THIS REPRESENTS THE BUS INTERRUPT PRIORITY LEVEL OF THE 
635 0Z11. 8IT1S OF THIS LOCATION INDICATES EITHER EIA OR 
6% 20MA. IF BIT1S°O MODULE SHOULD BE AN M7619, IF BIT15-1 
637 MODULE SHOULD BE AN 7614. 
638 1506 000377 reas Is THe BINARY REPRESENTATION OF WHAT LINES ARE 10 
640 1510 017070 THIS IS THE PARAMETER LOCATION USED IN MOST OF THE 
641 TESTS. IT INDICATES PARAMETERS OF: RX ON, SPEED SELECT 
642 16 (9600 30) EIGHT BITS PER CHAR, AND TWO STOP BITS. 
643 THE USER MAY ALTER THE STOP BITS AND THE SPEED, BUT THE 
644 REMAINING PARAMETERS SHOULD BE LEFT ALONE. 
645 THIS LOCATION IS USED TO LOAD THE 0211 LINE PARAMETER 
646 REGISTER FOR EACH LINE. THE MEANING OF THE BITS SET IN 
647 THIS LOCATION IS THE SAME FUNCTION OF THE RELATED 
648 BITS IN THE OCEVICE LINE PARWETER REGI : 
649 1512 000000 THIS LOCATION WILL CONTAIN EITHER ALL ZEROS INDICATING 
650 THAT LOOP WAS SELECTED AS MODE OF OPERATION OR 
651 IT WILL CONTAIN 100000 INDICATING TWAT “STAGGERED 
652 WAS SELECTED OR IT WILL CONTAIN 000200 INDICATING THAT 
635 “EXTERNAL” WAS THE MODE SELECTED. 
655 THE ABOVE IS REPEATED FOR EACH 0211 IN Te SYSTEM. TME TABLE IS 
656 FILLED BY AUTO SIZING OR BY THE MANUAL P. ARATETER TWPUT PROGRAM 
657 AS OESCRIBED PREVIOUSLY. ASO IF OESIPED BY USER; 

658 LOCATIONS MAY BE ALTERED BY WAND (TOGGLED IN) TO SUIT We 
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| BEL 

| 662 

| 663 8.5 eee METHOD OF AUTO SIZING eee 
664 

665 8.5.1 FINDING THE CONTROL STATUS REGISTER. 
666 
667 THE PROGRAM WILL START AT ADORESS 166900 AND START ‘REFERENCING’ THE 

ADORESS IN THE IF A NON-EX MEMORY TRAP OCCURES, THE POINTER 

669 (HOLDING 160000) IS UPDATED BY 1 THE ABOVE IS REPEATED Ik 
670 S$ 163700 IS ” A ‘SLAVE SYNC RESPONSE’ WAS ISSUED BY THE 
671 DZ11 (OR ANY OTHER DEVICE) (NO TRAP), “MAS ENABLE” IS 
672 GE SET “TCR BIT FOR LINE 7 IS SET. “TROY” IS THEN 
673 TESTED TO BE SET AMD BOTH “TCRO7” AND “MASTER SCAN ENABLE” ARE TESTED TO 
674 BE STMLL SET. IF ALL OF THIS WORKED, ‘THEN A “DEVICE CLEAR“ IS ISSUED 
675 TESTING THAT THE BIT CAN BE READ BACK AND THAT AFTER T IT SEL 
676 “ ALL OF ‘THE ABOVE WORKED, THIS DEVICE IS ASSUMED TO BE A 
677 OZ11. IF ANY CF THE ABOVE FAILED; UPDATING OF THE POINTER I 
678 THE SE IS REPEATED. 
679 NOTE: IF THE PROGRAM DOES NOT FIND YOUR 0Z11; SOMETHING IS WRONG AND 
680 AUTO SIZING SHOULD NOT BE DONE. 
681 AFTER IDENTIFYING A oz THE PROGRAM THEN ATTEMPTS TO SET ALL OTR BITS 
682 IN DEVICE REGISTER 4. IF ANY DTR BITS DID SET THE MODULE IS ASSUMED TO 
683 BE AN EIA MODULE (M7619) OTHERWISE THE STATUS MAP ENTRY IS SET FOR 20MA 
6s (M7814). 
686 8.5.2 FINDING THE VECTOR 
688 THE VECTOR AREA (ADORESS 300-776) IS FILLED WITH THE INSTRUCTION IOT AND 
689 .02' (NEXT ADORESS). _BIT14 AMD BITS (TX INTERUPT ENABLE AND MSTSCAN 
690 ENABLE) ARE SET INTO THE DZCSR. “TORO?” IS THEN SF. A DELAY IS MADE 
691 MO IF NO INTERUPT OCCURES (BECAUSE OF A BAD 0Z11) THE PROGRAM ASSUMES 
622 VECTOR ADDRESS 300 AMD THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. 
693 THE IS FIXED, Tre SHOULD BE RE-SETUP AGAIN TO GET 
694 CORRECT OR. ' ADORESS TO WHICH THE 0211 
695 TED TO IS PICKED UP AND TED AS THE VECTOR. NOTE: IF 
696 VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU; THERE IS A PROBLEM AND 
697 AUTO SIZING SHOULD NOT BE DONE. 
699 8.5.3 PARAMETER ASSUMPTIONS. 
701 SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THe REST OF 
702 THE PARAMETERS: THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS. THE 
703 RESULT IF NOT TO vOUR SPECIFIC CONFIGURATION MAY BE ALTERED HAND 
704 (TOGGLE IN) IF DESIRED). IN THIS WAY 95 PERCENT OF THE PARAMETER SETUP 
705 WAS DONE BY THE PROGRAM, AND S PERCENT BY 
706 THEREF: : 
707 1) BUS PRIORITY IS SET TO LEVELS. 
708 2) ALL EIGHT LINES ARE ASSUMED TO BE TESTED. 
709 3) DEFAULT BAUD RATE IS SET TO 16 (9600 BAUD) 
710 a) MODE OF OPERATION IS “INTERNAL 


712 FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4A FOR GREATER DETAIL. 
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9.0 


9.1.1 


9.1.2 


RUNNING THE 0Z11 DIAGNOSTIC UNDER APT 


THE APT INTERFACE 

CZDZA HAS BEEN REDESIGNED TO BE COMPATIBLE WITH THE APT- 
AUTOMATED PRODUCT TEST SYSTEM. IT CAN BE RUN AS A STANDALONE 
DIAGNOSTIC OR IN EITHER OF THE APT MODES. CERTAIN VARIABLES 
IN THE ORIGINAL APT MODULE WERE REASSIGNED TO THE AREAS SET 
ASIDE FOR APT INTERFACING. THESE NEW VARIABLES GENERALLY 
BEGIN WITH A DOLLAR SIGN (¢), E.G., SDEVM, SBASE. 


SETTING UP THE DIAGNOSTIC USING APT 


THE DIAGNOSTIC USES SEVERAL VARIABLES r REGION SUBTITLED 
‘APT MAILBOX-ETABLE’'. THESE VARIABLES ARE 


$SWREG - USED IF A SOFTWARE SWITCH REGISTER IS DESIRED WHILE 
UNDER APT 

$VECT1 - USED TO SPECIFY THE INTERRUPT LEVEL AND THE FIRST 
VECTOR ADDRESS 

$BASE - USED TO INDICATE BOTTOM ADORESS OF 0Z11 UNDER TEST 

$0EVM - A BIT MAP REPRESENTING WHICH 0211'S WILL BE TESTED 

$CDWi - USED TO INDICATE WHICH LINES TO RUN ON ALL 0211'S 


$00WO - EACH OF T $00W WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A A PARTICULAR 0Z11, GOING UP TO 16 0211'S 


SEQ 17 


ZDZA -HO 
ZOZAM.P11 


MACY11 SOAC 1052) 
15:45 


19-JUN-64 1 


Fe 


19-JUN-64 16:22 PAGE 18 


9.1.3 


RUNNING UNDER APT 
THE USER SHOULD BE FAMILIAR WITH THE APT SYSTEM. THE APT 
TIMING PARAMETERS 2 THE 0211 DIAGNOSTIC WERE Pe ~ ON AN 
11/40 PROCESSOR. IT MAY BE NECESSARY TO ADD FEW MORE 
SECONDS IF THE DIAGNOSTIC TS OUT ON AN 11/05 PROCESSOR. 
ALL OF THE VARIABLES MENTIONED IN yd - gh - 2 SHOULD BE SET 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER AP 

NOTE 


BE SURE $BASE POINTS TO THE FIRST 0Z11 BEFORE RUNNING 


BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP THE STATUS 
TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 
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770 
771 
772 10.0 CHANGE HISTORY 
773 
774 NOTE: HISTORY STARTS WITH REV. FO 
77S 
776 REV CHANGE DESCRIPTION 
ti a ye elld-onnangaoany 
779 FO: ALTER TRANSMITTER INTERRUPT SERVICE ROUTINE 
780 TO ALLOW MORE TIME FOR THE TCR BIT TO CLEAR BEFORE 
761 LOWERING THE BUS PRIORITY TO ENABLE 0Z11 INTERRUPTS. 
762 
763 GO: MAY 1961 - INCORPORATE XON/XOFF FEATURES (BY hg ge WITH 
LATEST SYSMAC - CS) AND CHANGE “.©”" CODE MODIFIERS A 
78S OF PROGRAM FROM ABSOLUTE ADORESS MODE TO RELATIVE. ALSO. THE 
786 DEFAULT BAUD RATE WAS CHANGED TO 9600 BAUD, SINCE 19.2K BAUD IS 
a a4 NOT SUPPORTED, AND TEST 34 WAS CHANGED TO REMOVE 19.2K TESTING. 
789 HO: JUNE 1964 - ADDED BALD pe Bs By ADDED IN ORDER 
790 bs rg CRYSTAL SPEEDS. TRANSMITTS CHARACTERS TO ALL 6 ana 
791 ALL BAUD RATES (EXCEPT 19200 BAUD) FOR 1 SECOND AND IF THE 
792 NUMBER OF CHARAC TERS TRANSMITTED IS WITHIN A RANGE, THE TEST 
793 WILL PASS. 
794 
795 6 
796 
797 
798 3 -PRGFRT -seeeecescecessssssessessesseses 
799 -TITLE CZDZA-HO 
800 s*COPYRIGHT (C) 1976,1964 
801 teOIGLT AL EQUIPMENT 
802 e@MAYNARD, MASS. 01754 
os ie 
3¢ 
605 s*¢THIS PROGRAM WAS ASSEMBLED ge THE PDP-11 MAINDEC SYSMAC 
a 1 SPACKAGE (MAINDEC-11-DZQAC-CS), JAN, 1961. 
608 000001 $TNet 
809 sSTARTING PROCEDURE 
810 sL PROGRAM 
611 sLOAD ADDRESS 000200 
812 ;PRESS START 
613 sPROGRAM WILL TYPE “CZDZA-HO/<200>/CZDZAHO DZ11 LN ASYNC MUX TSTS “ 
614 sPROGRAM WILL TYPE “RUNNING” TO INDICATE THAT TESTING HAS STARTED 
615 sAT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
oe sAND THEN RESUME TESTING 
ord -SB8TTL BASIC DEFINITIONS 
820 s@INITIAL ADORESS OF THE STACK POINTER se* 1120 see 
621 001120 STACK= 1120 
622 -EQUIV ent, ERROR , psBASIC DEFINITION OF ERROR CALL 
823 -EQUIV I0T,SCOPE ssBASIC DEFINITION OF SCOPE CALL 


s*@MISCELLANEOUS DEFINITIONS 
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626 000011 HT= 11 3s3COOE FOR HORIZONTAL TAB 
627 000012 LFe 12 3sCOOE FOR LINE FEED 
828 000015 CRe iS 33CODE FOR CARRIAGE RETURN 
629 000200 CRLF=e 200 3s3CODE FOR CARRIAGE RETURN-LINE FEED 
830 177776 PSs 177776 3 sPROCESSOR STATUS WORD 
631 -EQUIV PS,PSW 
632 177774 STKLMT® 177774 ssSTACK LIMIT REGISTER 
633 177772 PIRQ@= 177772 3 sPROGRAM INTERRUPT REQUEST REGISTER 
84 177570 OSWR= 177570 ssHARDWARE SWITCH REGISTER 
635 177570 DOISP= 177570 ssHARDWARE DISPLAY REGISTER 
aS 
637 —_——_, PURPOSE REGISTER DEFINITIONS 
838 000000 3 sGENERAL REGISTER 
as 000001 Rie $1 3 sGENERAL REGISTER 
840 000002 R2= 62 + sGENERAL 
B41 000003 R32 “3 3 sGENERAL REGISTER 
000004 ae eA 3 sGENERAL REGISTER 
643 000005 RS= s5 3 sGENERAL REGISTER 
B44 000006 R6= 84, 3 sGENERAL 
645 000007 Rye “7 3 sGENERAL REGISTER 
RAG 000006 SPs 86 ssSTACK POINTER 
po 000007 PC= “7 a8 
849 s@¢PRIORITY LEVEL DEFINITIONS 
650 000000 PRO= 0 ssPRIORITY LEVEL O 
8651 000040 PRie 40 ssPRIORITY LEVEL 1 
8s2 000100 PAS 100 ssPRIORITY LEVEL 2 
653 000140 PR3e 140 ssPRIORITY LEVEL 3 
654 000200 PRG 200 ssPRIORITY LEVEL 4 
855 000240 PRS= 240 ssPRIORITY LEVEL 5 
656 000300 PRG = 300 ssPRIORITY LEVEL 6 
ot 000340 PRT= 340 ssPRIORITY LEVEL 7 
6s9 3@”’SWITCH REGISTER” SWITCH DEFINITIONS 
650 100000 SW1i5= 100000 
661 040000 SW14= 
862 020000 SWi3= 20000 
863 010000 SWi2= 10000 
B64 004000 SWiis 4000 
865 002000 SwWi0= 2000 
866 001000 . 1000 
667 000400 Swos= 400 
000200 72 200 
869 000100 Swo6= 100 
870 000040 SwO5= ag 
671 000020 Sw04=- 20 
872 000010 SWwO3= 10 
873 000004 Swo2= 4 
874 000002 Swois 2 
875 000001 gswoos 1 
876 -EQUIV SWO9,SW9 
677 -EQUIV SWO6,SW6 
878 -EQUIV SWO7,SW7 
879 -EQUIV SWO6,SW6 
-EQUIV SWOS,SWS 
661 -EQUIV SWO4,SW4 
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SWO3, SWS 
Swoe , SW2 
SWO1,SW1 
SWOO , SWO 


s@DATA BIT DEFINITIONS (BITOO TO BIT15) 
S= 100000 


BITOO,BITO 


s@BASIC al TRAP ways ADORESSES 
ERRVEC= sTIME OUT AND OTHER ERRORS 
AND ILLEGAL INSTRUCTIONS 


KE VECTOR 
ssTTY PRINTER VECTOR 
ssPROGRAM INTERRUPT REQUEST VECTOR 


PUSH1SP*5746 sDECREMENT PROCESSOR STACK 1 WORD 
POP 1SP "S726 sINCREMENT PROCESSOR STACK 1 WORD 
PUSHRO = 10046 


PUSH2SP = 24646 





Je 
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938 022626 POP 2SP =22626 sINCREMENT STACK TWICE 
939 
BAO 30211 CONTROL AND STATUS REGISTER DEFINITIONS 
941 3(OZCSR) BIT OEFINITIONS 
o42 ee eee 
oS 
aa 000010 MAINT = SITS sMAINTENANCE MODE ENABLE 
945 000020 OCLR=BIT4 sDEVICE CLEAR 
36 000040 *BITS 8 SCAN E 
947 000100 RIE*BIT6 sRECEIVER INTERRUPT ENABLE 
i] *BIT7 sRECEIVER 
949 010000 SILOEN* BIT12 ;SILO ALARM ENABLE 
950 020000 SILOAL = BIT13 ;SILO ALARM 
951 040000 TIE*BIT14 s TRANSMITTER INTERRUPT ENABLE 
ba 100000 TROY=BIT15 3s TRANSMITTER READY 
So 000021 $XON=21 
oa 000023 $XOFF 223 
2 s0ZCSR WORD DEFINITIONS 
L ese eeeeneeneaeeneneneaeeneaeaenee 
959 000000 TLO#0 TRANSMIT LINE O 
960 000400 TLi=BITS s TRANSMIT LINE 1 
961 001000 TL2*BIT9 3 TRANSMIT LINE 2 
962 001400 TL3*BIT9!BITS ; TRANSMIT LINE 5 
963 002000 TL4*°BIT10 3 TRANSMIT LINE 4 
SEA 002400 say why de. Sa 3s TRANSMIT LINE 5S 
965 003000 TL6*BITIO!BIT9 ; TRANSMIT LINE 6 
— 003400 TL 7-BITIOBITO!BITS s TRANSMIT LINE 7 
968 
cs) sO0ZRBUF BIT DEFINITIONS 
a lalla etaltettetatetatel 
1 
972 010000 PARER-BIT12 sPARITY ERROR 
973 020000 FRMERR=BIT13 sFRAME ERROR 
974 040000 OVRRUN@6IT14 sOVERRUN ERROR 
ak 100000 OVALID=-BIT15 sDATA VALIO 
977 s;0ZRBUF WORD DEFINITIONS 
978 caren pete Pecepelatemitcair 
979 
980 000000 RLO=0 RECEIVER LINE O 
961 000400 RLi=BITS sRECEIVER LINE 1 
962 001000 RL2-BIT9 sRECEIVER LINE 2 
983 001400 RLS°BIT9!IBITS ;RECEIVER LINE 5 
964 002000 RL4°BIT10 sRECEIVER LINE 4 
9865 002400 RLS*BITIO!BITS ;RECEIVER LINE 5 
980 003000 RL6*BITIO!BIT9 ;RECEIVER LINE 6 
24 003400 RL7=BITLIO!BIT9IBITS ; RECEIVER LINE 7 
989 s0ZLPR WORD DEFINITIONS 
FO Porc err e ence e we eeeceene 
991 
992 000000 LPO=0 sLINE PARAMETER 0 


993 000001 LPi=BITO sLINE PARAMETER 1 
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994 000002 LP2°BIT1 LINE PARAMETER 2 

995 000003 LPS@BITI!BITO ;LINE PARAMETER 3 

996 000004 LP4eBIT2 LINE PARAMETER 4 

997 000005 LPS=BIT2!BITO LINE PARAMETER 5 

998 000006 LPG=BIT2!BIT1 LINE PARAMETER 6 

999 000007 LPPeBIT2 8111 18110 1LINE PARAMETER 7 

1000 

1001 000000 FIVE=0 1FIVE BITS/CHAR,1 STOP BIT 
1002 000010 SIX=BITS sSIX BITS/CHAR,1 STOP BIT 

1003 000020 SEVENSBIT4 1SEVEN BITS/CHAR,1 STOP BIT 
1004 000030 EIGHT*BIT4!BITS ;EIGHT BITS/CHAR,1 STOP BIT 
1005 000040 FIVES*BITS sFIVE BITS/CHAR,2 STOP BITS 
1006 000050 SIXS*BITS!B1T3 ;SIX BITS/CHAR,2 STOP BITS 
1007 000060 SEVENS=BITS!6IT4 1SEVEN BITS/CHAR, 2 STOP BITS 
1008 000070 EIGHTS@BITS!GIT4!BITS EIGHT BITS/CHAR, 2 STOP BITS 
1 

1010 000100 PARITY=B1T6 sPARITY ENABLED 

1011 000200 ODOPAR=B1T7 1000 PARITY ENABLED 
1012 000000 ONESTOP=0 sONE STOP BIT ENABLED 
1013 000040 TWOSTOP=BITS sTWO STOP BITS ENABLED 
1014 000000 EVEPAR=0 sEVEN PARITY ENABLED 
1015 010000 RCVON=BITi2 sENABLE RECEIVER (RECEIVER ON) 
1017 000000 $500 sSPEED SO BAUD 

1018 000400 S75°B1T8 sSPEED 75 BAUD 

1019 001000 $110°81T9 sSPEED 110 BAUD 

1020 001400 $134-B1T9!61T8 sSPEED 134.5 BAUD 

1021 $150°81T10 sSPEED 150 BAUD 

1022 $300-BIT10:81T8 sSPEED 300 BAUD 

1023 003000 $600-81T1 sSPEED 600 BAUD 

1024 003400 Sizdo-Bitiore1r9:ezTe sSPEED 1200 BAUD 

1025 004000 $1800-8IT1 sSPEED 1800 BAUD 

1026 004400 $2000-81T11!BITS sSPEED 2000 BAUD 

1027 005000 $2400-8IT1 1SPEED 2400 BAUD 

1028 005400 S3600BIT11!BIT9!BITS SPEED 3600 BAUD 

1029 006000 $4800-BIT11 sSPEED 4800 BAUD 

1030 006400 $7200¢BIT11!BIT10!81T8 SPEED 7200 BAUD 

1031 007000 $9600=BIT11!BIT10!8IT9 ;SPEED 9600 BAUD 

1032 007400 $19200-BIT11!GIT10!8IT9!8IT8  ;SPEED 19200 BAUD 
1034 s0ZTCR BIT DEFINITIONS 

$ eee eeeec eee ee ee eeeeee 

1036 000001 TCRO=BITO sTCRO 

1037 000002 TCRi°BIT1 sTCRI 

1038 TCR2-BIT2 i TCR2 

1039 000010 TCRS@B1T3 sTCRS 

1040 TCR4°BIT4 iT 

1041 000040 TCRS*@ITS sTCRS 

1042 000100 TCR6=B1T6 i TCRE 

1043 000200 TCR7°B1T7 sTCR7 

1044 OTRO=BITS 10TRO 

1045 001000 OTR1°B1T9 s:0TR1 

1046 OTR2*AIT10 ’ 

1047 004000 OTR3*BIT11 OTR 

1048 010000 OTR4=B1T12 :0TRA 


1049 020000 OTRS-BIT15 sOTRS 


—_[—$—<—$—$—$ $—$— 5S — 
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1050 040000 OTR6«BIT14 sOTRE 
1051 100000 OTR7*BIT15 sOTR7 
1052 
1053 s0ZMSR BIT DEFINITIONS 
1054 * Te-emmsciaciatalestaaaaectociag eta 
1055 000001 RINGC*BITO sRING INDICATED ON LINE O 
1056 000002 RING1*BIT1 sRING INDICATED ON LINE 1 
1057 RING2*BIT2 sRING INDICATED ON LINE 2 
1058 000010 RINGS=BITS sRING INDICATED OW LINE 3 
1059 RING4=BIT4 sRING INDICATED ON LINE 4 
1060 000040 RINGS-BITS sRING INDICA ON LINE 5 
1061 000100 RING6°BIT6 sRING INDICATED ON LINE 5 
1062 RING7°BIT7 sRING INDICATED ON LINE 7 
1063 000200 Coo-sITs 8 SENT ON LINE 0 
1064 001000 C0i*BIT9 sCARRIER PRESENT ON LINE i 
1065 002000 CO2-BIT10 8 SENT ON LINE 2 
1066 004000 CoS-BIT1i1 sCARRIER PRESENT ON LINE 5 
1067 010000 *BIT12 sCARRIER PRESENT ON LINE 4 
1068 CoS-BIT13 sCARRIER PRESENT ON LINE 5 
1069 040000 C06«BIT14 sCARRIER PRESENT ON LINE 6 
etn 100000 Co7*BIT15 sCARRIER PRESENT ON LINE 7 
1072 s0ZTOR BIT DEFINITIONS 
1073 Brrr r cere eer e eee eenne 
1074 
1075 BRKO=BITS sBREAK FOR LINE O 
1076 001000 BRK1°BIT9 sBREAK FOR LINE 1 
1077 BRK2=BIT10 sBREAK FOR LINE 2 
1078 004000 BRKS-BIT11 sGREAK FOR LINE 5 
1079 010000 BRK4-BIT12 sBREAK FOR LINE 4 
1060 020000 BRKS°BIT15 FOR LINE 5 
10861 040000 BRK6"BIT14 sBREAK FOR LINE 6 
— 100000 BRK7=BIT15 sBREAK FOR LINE 7 
1084 
est ; TABLE OF LOOP AROUND FUNCTIONS (HS25) 

$ 
1067 $0 teen eee eee eeee 
1068 3 I ' 
1089 3 Vv t 
1099 3 REC TRANS 
1091 F DATA DATA 
1092 ; 
1093 $0 tee eee re eeee 
1094 3 I t 
1095 ; Vv t 
1096 F co RTS 
1097 : 
1098 : 
1099 $0 tt tee e rece cee 
1100 ’ I t 
1101 8 Vv t 
1102 3 RING OTR 


Me 
SEQ 25 
CZDZA-HO MACY11 yo ee 19-JUN- mo 16:22 PAGE 25 
CZ0ZAH.P11 19-JUN-84 15:4 TRAPCATCHER FOR UNEXPECTED INTERRUPTS 
1103 f LSMASHASHASHASESESESSESAEHEHSESESASSSEEEASHEESEEEEEEHEEEEEEEHEEEEOEEEEESE 
1104 SPSL SR SHS OS SSS SESE RES CSTE LOR CES SSS SSS ee ee ee eee ere 
1105 3 TRAPCATCHER . Lowe, INTE 
1106 STANDARD ” “ 1s PLACED 
1107 TWEEN RODRESS “ys TO "AOORESS 776. 
1108 iT LOOKS LIKE “PC+2 HAL 
te it night cau eaten lapel pei blaNain initia ine pun camiissapiinapinmimiia—ts: 
1110 ; s Obeeenrnceresesecesorscoccecocesosecececcnceseseseseseseseceeceeeses 
1111 
1112 000000 .20 
1115 sSTANDARD INTERRUPT VECTORS 
1114 §ccececceeceoscnescescssees 
1115 
1116 000010 -710 
1117 000010 011440 SET.PS sFAKE “MTPS” INSTRUCTION TRAP 
14 000012 000340 PR7 sMAKE SURE PS IS PRIORITY 7 
1120 000020 -*20 
1121 000020 005122 . SCOPE sSCOPE LOOP HANDLER 
1122 000022 000340 PR7 sHANDLE AT PRIORITY 7 
1123 000024 010320 SPRRON sPOWER FAIL 
1124 000026 000340 340 sSERVICE AT PRIORITY LEVEL 7 
1125 000030 007230 sERROR sERROR HANDLER 
1126 000032 000340 340 sSERVICE AT PRIORITY LEVEL 7 
1127 000034 007122 . TRPSRV sGENERAL HANDLER DISPATCH ete 
1126 000036 000340 340 I SERVICE AT PRIORITY LEVEL 7 
WY .SBTTL ACT11 HOOKS 
1131 fp SSOHHSASKSSHASHEAHAAALSTHOSSHSHAHSHSAHAASHHHGESAEOSHSOKHAOSHHSESEEAE 
1132 sHOOKS REQUIRED BY ACT11 
1133 000040 sSvPC-. sSAVE PC 
1134 000046 . 246 
1135 000046 005056 sSENDAD 331)SET LOC.46 TO ADORESS OF SENDAD IN . SE0P 
1136 000052 .*52 
1137 000052 000000 -WORD O :32)SET LOC.S2 TO ZERO 
rt 000040 . =$SVPC 33 RESTORE PC 
1140 000174 2174 
1141 000174 000000 OISPREG:0 sSOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 
1142 000176 000000 SWREG: 0O sSOFTARE SWITCH REGISTER FOR SWITCHLESS 11S 
1143 000200 .- #200 
1144 000200 000137 002150 JSP . START 3G0 TO START OF PROGRAM 
1145 000210 -*210 
oat 000210 000137 025216 JP XSTART sGOTO CABLE TEST/ECHO TEST 
1148 
1149 


001000 -*1000 
1150 001000 005200 055103 055104 MTITLE: .ASCIZ <200><12>/CZDZA-HO/<200>/CZDZAHO 0Z11 LN ASYNC MUX TSTS /<200> 





CZDZA-HO 
CZOZAH.P11 


- 





Ne 


MACY11 30A(1052) 19-JUN-64 16:22 PAGE 26 
: COMMON TAGS 


19-JUN-64 15:45 


001120 


stillet 


001 


077 
015 
000012 


HITTTLTET [acesldddilecl UHH 


SEQ 26 
.SBTTL COMMON TAGS 
FY J SHOHSSSASSSSSESSHSSAHSSHSEESSHSHESSHSHEESOHEAEEESESEHOSESEESEEEESE 
3¢THIS ay god VARIOUS COMMON STORAGE LOCATIONS 
3@USED IN 
-*1120 
SCMTAG: 9 3sSTART OF COMMON TAGS 
$TSTNM: .BYTE 0 ssCONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 3 sCONTAINS ERROR FLAG 
SICNT: .WORD 0 3sCONTAINS SUBTEST ITERATION COUNT 
3LPADR: .WORD 0 8 AINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 ssCONTAINS SCOPE RE 
SERTTL: .WORD O ssCONTAINS TOTAL ERRORS DETECTED 
sITEMB: .BYTE O 88 ITEM BYTE 
SERMAX: .BYTE 1 88 MAX. PER TE 
SERRPC: .WORD 0 ssCONTAINS PC OF LAST ERROR INSTRUCTION 
$GDADR: .WORD O 88 AINS ADORESS OF ‘GOOD’ DATA 
$BOADR: .WORD 0 88 AINS OF ‘BAD’ DATA 
$GODAT: .WORD 0 ssCONTAINS ‘GOOD’ DAT 
SBDDAT: .WORD O ssCONTAINS ‘ * DATA 
. WORD 4 3 sRESERVED--NOT TO BE USED 
SAUTOS: .BYTE O s sAUTOMATIC MODE INDICATOR 
SINTAG: — 4 ss INTERRUPT MODE INDICATOR 
: -WORD OSUR 3 sADORESS OF SWITCH REGISTER 
DISPLAY: .WORD ODISP ssADORESS OF DISPLAY REGISTER 
$TKS: 177560 ssTTY KBO STATUS 
$TKB: 177562 ssTTY KBO BUFFER 
$TPS: 177564 ssTTY PRINTER STATUS REG. ADORESS 
$TPB: 177566 ssTTY PRINTER BUFFER REG. ADORESS 
OMAL: .BYTE 0 88 CHARACTER FOR FILLS 
SFILLS: .BYTE 2 ssCONTAINS @ OF A a Bt QUIRED 
$FILLC: .BY 12 ss INSERT FILL CHARS. 
¢TPFLG: .BYTE 0O 33” AVAILABLE” v rtae A BiT<07><0-vES) 
¢REGAD: fe) 8 AINS THE ADORESS 
ssWHICH ($REGO) WAS OBTAINED 
$REGO: .WORD O 3 sCONT (€( $REGAD ) +0) 
$REG1: .WORD 0O a8 ((C $REGAD )-2) 
¢REG2: .WORD O a8 (€( $REGAD ) +4) 
$REGS: .WORD O a8 CC $REGAD ) +6) 
$REG4: .WORD O a8 ((C $REGAD )+10) 
$REGS: .WORD O 8 AINS (( $REGAD)+12) 
sTHPO: .WORD O 83 OF 
sTH#Pi1: .WORD O 33USER DEFINED 
sTeP2: .WORD O 33sUSER DEFINED 
sTMPS: .WORD 0 — DEFINED 
¢TIMES: O = S OF ITERATIONS 
SQUES: .ASCII /?/  EUESTION MARK 
sCRLF: .ASCII <15> 3 sCARRIAGE RETURN 
sLF: -ASCIZ <12> 33LINE FEED 


MTTTTT TTT TIT iii ttt 
SBTTL APT MAILBOX-ETABLE 


——— 
B3 


SEQ 27 
CZDZA-HO0 MACY11 SOA(1052) 19- JUN 04 16:22 PAGE 27 
CZDZAM.P11  19-JUN-64 15:45 T MAILBOX -ETABLE 
1207 t SSHOSSHSSSHSSSSSSHSSSSSSSSHSSSSSSHSSSSSSHSHSHSSHSHSHSSHSSSHSSSHSSESSHEHEEES 
001234 @MAIL: 3sAPT MAILBOX 
1210 001234 000000 SMSGTY: .WORD AMSGTY ,;MESSAGE TYPE CODE 
1211 001236 000000 SFATAL: .WORD AFATAL 1;FATAL ERROR NUMBER 
001240 000009 STESTN: .WORD ATESTN 4, TEST NUMBER 
1213 001242 000000 9PASS: .WORD APASS 1;PASS COUNT 
1214 001244 000000 S0EVCT: .WORD ADEVCT ;,0EVICE 
1215 001246 000000 SUNIT: .WORD AUNIT 45170 UT 
1216 001250 000000 SMSGAD: .WORD AMSGAD 1;MESSAGE ADORESS 
1217 001252 000000 SMSGLG: .WORD AMSGLG 1:ME LENGTH 
1218 001254 SE TABLE: s:APT ENVIRONMENT TABLE 
1219 001254 000 sENV: .BYTE AENV 4 ,ENVIRONFENT BYTE 
001255 000 sENVM: .BYTE ENV s sENVIRONFENT MODE BITS 
1221 001256 000000 SSWREG: .WORD ASWREG ;,APT SWITCH REGISTEF 
001260 000000 SUSUR; .WORD AUSMR 4,USER SWITCHES 
1223 001262 000000 SCPUOP: |WORD ACPUOP ;,CPU TYPE,OPTIONS 
1224 1¢ BITS 15 23°CPU TYPE 
1225 30 11/04°01,11/05*02,11/20*0. 11/40*04,11/45*05 
1226 se 11/7020 ,P0@207 1 
1227 30 T 10°REM TIME 
1228 1¢ eri Q°FLOATING POINT PROCESSOR 
1229 3¢ 
1230 001264 000 SMAMS1: .CYTE AMANS1 1;MIGH ADORESS.M.S. BYTE 
1231 001265 000 SMTYP1: .SYTE AMTYP1 ;,MEM. TYPE, QLKG1 
1232 .¢ MEM. TYPE BYTE -- (HIGM BYTE) 
1233 1s 
1234 we 300 NSEC BIPOLAR=002 
1235 16 NSEC nOS=005 
1236 001266 000000 SMADR1: .WORD AMADRI 4 ;HIGH ADORESS.OLK 
1237 10 MEM.LAST ADOR. “3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
1238 001270 000 : .BYTE AMANS2 1 ;HIGH ADORESS.M.S. BYTE 
1239 001271 000 SMVYP2, .SYIE  AMTYP2 4;MEM. TYPE, OLKe2 
1240 001272 000000 SAOR2: AMWUOR2 1;MEN.LAST ADDRESS ,OLKe2 
1241 001274 000 SMAMSS: . BYTE ssMIGH ADORESS.M.S.8YTE 
001275 000 SHTYPS; _GYTE ANTYPS ,,MEM. TYPE, OLKeS 
1243 001276 000000 : AMAORS 1 ,MEN.LAST ADORESS.OLKOS 
001300 000 erntsé: . BYTE ssHIGM ADORESS.M.S.6YTE 
1245 001301 000 SHTYP4; .GYTE ANTYPA ;,MEM. TYPE. OLKes 
001302 000000 : .WORD AMADRG 1,MEN.LAST AOORESS.OLKe4 
1247 001304 000000 SVECT1: .WORD AVECT1 ;;, INTERRUPT VECTORG1.6US PRIORITYe1 
1 SVECT2: .WORD AVECT2 ;, INTERRUPT VECTORE2BUS PRIORITYO2 
1249 001310 160010 $BASE: .WORD ABASE 1 ;BASE ADORESS OF EQUIPMENT UNDER TEST 
001312 000000 S0EVM; .WORD ADEVM ;,DEVICE map 
1251 001314 000000 $CDWi; .WORD ACDWi ;;CONTROLLER DESCRIPTION WORD?! 
001316 000000 $CDM2; .WORD ACDM2 ;;CONTROLLER DESCRIPTION WORDE2 
1253 001320 000000 #00W0: .WORD ADOWO ;,0EVICE WORDeO 
1254 001322 000000 $00W1: .WORD ADOW1 4 ,DEVICE DESCRIPTOR WORDe1 
1255 001324 000000 $00W2: .WORD ADDM2 1 ;DEVICE DESCRIPTOR WORDE2 
1256 001326 000900 $00W3: .WORD ADOWS 4 ,;DEVICE DESCRIPTOR WORDES 
1257 001330 000000 8004; .WORD ADDWS ,,DEVICE DESCRIPTOR WORDES 
1258 001332 000000 $00W5; .WORD ADOWS 1 ;DEVICE DESCRIPTOR WORDES 
1259 001334 000000 800W6; .WORD ADOWG 1 ,DEVICE DESCRIPT 
1260 001336 000000 $00W7; .WORD ADOW7? 1,DEVICE DESCRIPTOR WORDE7 
1261 001340 000000 $00W8: .WORD ADOWS 1 ,;DEVICE DESCRIPTOR WORDES 
1262 001342 000000 $00W9; .WORD ADOW9  1:DEVICE DESCRIPTOR WORDES 


CZDZA -HO 
CZDZAH.P11 


| 
1264 
268 


1263 


MACY11 SOA( 1052) 
19-JUN-64 15:45 


19-JUN-84 16:22 


PAGE 26 


APT MAILBOX -ETABLE 


s00W10; 
$00W11: 
$00W12: 
s00W13: 
s00w14: 
s00W15: 


*E TEND: 


C3 


ssOEVICE DESCRIPTOR WORDO10 


ssDEVICE DESCRIPTOR WORDE15S 


SEQ 26 





D3 


SEQ 
CZDZA-HO MACY11 3OA(1052) 19-JUN-64 16:22 PAGE 29 - 
CZDZAM.P11 19-JUN-64 15:45 ERROR POINTER TABLE 

| 4273 .SBTTL ERROR POINTER TABLE 

| 1274 

1275 seTMIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

1276 ;@TME INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

1277 | LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1278 s@NOTEL: IF sITEmB IS 0 Te ay PERTINENT DATA IS (SERRPC). 

4 3s eNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
i 

1261 Le EM ssPOINTS TO THE ERROR MESSAGE 

1262 pe oy ssPOINTS TO THE DATA HEADER 

1263 Ts OT ssPOINTS TO THE DATA 

1284 74 OF ssPOINTS TO THE DATA FORMAT 

1265 

1266 

1287 001360 sERRTB: 

1 

1289 sPROGRAM CONTROL PARAMETERS 


:ADORESS OF NEXT + + TO BE = 
sAOORESS FOR LOCK ON CURRENT DATA 


sOEFAULT ALi EIGHT LINES RUNNING 
sPARAMETERS: & BITS/CHAR,2 STOP BITS. 39600 BAUD.NO PARIT 
MAT MAINTENANCE MODE 


NUMBER 
OF WORDS IN A TRANSMISSION PATTERN 
{DEVICE ADORESS STORAGE LOCATION 
COUNTER STORAGE 


s PROGRAM 
100211: S SELECTED ACTIVE. 

s@POINTER ONE PAST RUNNING DEVICE. 
SeOCTAL NUMBER OF 0211'S. 
s eWORKABI.E NUMBER. 


s TABLE POINTER. 





ca 





















SEQ 30 
CZDZA -HO MACY11 SOAC10S2) 19-JUN-84 16:22 PAGE 50 
CZOZAH.P11 19-JUN-64 15:45 ERROR POINTER TABLE 


sPROGRAM CONTROL FLAGS 


‘ 


EIAFLG: .BYTE 0 sOPEIA 100000*20MA ' 
INIFLG: .BYTE 0 sPROGRAM INITIALIZATION FLAG 

WORFLG: .BYTE 0 ANTON es a hy FLAG FOR HEADER MAP 

MNTFLG: .BYTE 0 ENANCE BIT SET FLAG 

DONFLG: .BYTE 0 TRANSMISSION COMPLETION FLAG 


DATA VARIABLES 
TOO: r 


3 


WORD Oo 
TO1: -WORD O 
TO0e2: WORD O 
TOS: WORD O 
TO4: .WORD O 
TOS: -WORD O 
TO6: -WORD O 
TO7: -WORD O 
TRO: -WORD O 
TRi: -WORD O 
TR2: -WORD O 
TR3: -WORD O 
TR4: -WORD O 
TRS: .WORD O 

WORD 0 

-WORD O 


END O 
-SBTTL APT PARAMETER BLOCK 


£ 8 SOHSSSHSSSSSSSSSSHSSSSHSS SOSSSSOSHSHSSHSSSHSSASSESSHSSESSESENES 


sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


3 § SOOKSSSSSSSSSSSSSSHSSSHSSHSOHSSSSSHSSHSSSHSSS HEHEHE HESHHSEHSEEHEESE 


.$Xe, 33sSAVE CURRENT LOCATION 
224 33SET POWER Aa TO POINT TO START OF PROGRAM 
33FOR APT STAR 


T WP 
ssPOINT TO pe INDIRECT ADORESS PNTR. 
SAP THOR 3sPOINT TO APT HEADER BLOCK 
-*.$X 4 sRESET LOCATION COUNTER 
s pooonnesecesooonooonasoosoonoooosoesoscoosasacessscqsonssooosess 


iSETUP_ AP PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
ACE SPEC. 


SHIBTS: .WORD 0 ssTWO HIGH BITS OF 18 BIT MAILBOX ADOR 

$MBAOR: .WORD SMAIL 4 ,ADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 90. ssRUN TIM OF LONGEST TEST 

$PASTM: .WORD 95. 3sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 95. ssADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
. WORD SE TEND-OMAIL/2 1 sLENGTH MAILBOX -ETABLEC WORDS ) 


s0Z11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


.———_——- 


ra 


SEQ 31 

CZDZA-HO MACY11 a 19-JUN- ao 16:22 PAGE 3i 
CZ0ZAH.P11 19-JUN-64 15:4 T PARAMETER BLOCK 

1368 § - 6 JUNK - ececsecsssesascesssscassusssasessess 

1369 

1370 001500 000001 OZCRO: BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER O 

1371 001502 0900001 Ozvco: .BikKW 1 sRECEIVER AND BASE VECTOR FOR 0Z11 NUMBER 0 

1372 001504 000001 OZLvO: .OLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 

1373 1 000001 LINEO: .BLKW 1 sALL LINES SELECTED 

1374 001510 000001 PARO: BLKW 1 sP 

1375 001512 000001 MANTO: .BLKW 1 8 MODE FOR THIS DEVICE 

1376 s -- END O MACRO ceccececcesecesecss 

oats 3 - 6 JUNK -seceescccesessesesesssesssasesssssss 

1 

1379 001514 000001 OZCRi: .B6LKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 1 

1380 001516 000001 OZvCi: .6iKW 1 sRECEIVER AND BASE VECTOR FOR 0Z11 MBER 1 

1381 001520 000001 OZLVi: .6LKW 1 }PRIORITY LEVEL AND EIA FLAG SELECTOR 

1382 001522 000001 LINE1: .6LKW 1 sALL LINES SELECTED 

1383 001524 000001 PARI: 1 sPARAMETERS 

1384 001526 000001 MANTi: .6LKW 1 sMAINTENANCE MODE FOR THIS DEVICE 

1385 3 -- END O MACRO seecsseececessessss 

aoe 3 - $ JUNK - eeccesssececsssesessssesesssssssssss 

1388 001530 000001 OZCR2: .BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 2 

1389 001532 000001 OZvC2: .BLKW 1 sRECEIVER AND BASE VECTOR FOR 0Z11 NUMBER 2 

1390 001534 000001 OZLVe: 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 

1391 001536 000001 LINE2: .@iKW 1 sALL LINES SELECTED 

1392 001540 000001 PAR2: BikKw 1 AINE 

1393 001542 000001 MANT2: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 

1394 ts -- END O MACRO PEI stem setetnateeinn- 

ot 3 -$ JUNK -sesescescessessanesessssssessassssss 

1397 001544 000001 OZCRS: .B6LKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 5 

1396 001546 000001 OZvCS: .6LKW 1 }RECEIVER AND BASE VECTOR FOR 0Z11 NUMBER 3 

1399 001550 000001 OZLvS: .BiKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 

1400 001552 000001 LINES: . 1 sALL LINES SELECTED 

1401 001554 000001 FARS: -O.KW 1 PARAMETERS 

1402 001556 000001 MANTS: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 

1403 s -- END O MACRO ne hamnemmenten 

oe 3 -$ JUNK -cesscsccesessssssesssecsssasessaness 

1406 001560 000001 OZCR4: .BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 4 

1407 001562 000001 Ozvc4: .BLKW 1 sRECEIVER AND BASE VECTOR FOR 0Z11 NUMBER 4 

1406 001564 000001 OZLvV4: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 

1409 000001 LINE4; .BLKW 1 sALL LINES SELECTED 

1410 001570 000001 PARS; -BikKW 1 sPARAME 

1411 001572 000001 MANT4;: .BLKW 1 8 MODE FOR THIS DEVICE 

1412 s-- END 0 MACRO seseesecscesaesesse 

raas 3 - 6 JUNK - seceseccccsscescsssessssesssssssssss 

1415 001574 000001 OZCRS: BiKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 5 

1416 001576 000001 OZvCcS: .O6iKW 1 sRECEIVER AND BASE VECTOR FOR 0211 NUMBER S 

1417 001600 000001 OZLVS: .6LKW 1 }PRIORITY LEVEL AND EIA FLAG SELECTOR 

1418 001602 000001 LINES: .BLKW 1 sALL LINES SELECTED 

1419 001604 000001 PARS:; -OLKW 1 s PARAMETERS 

1420 001606 000001 MANTS: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 

1421 t-- END 0 MACRO seeeeceesessesesses 


1422 i - 6 JUNK - seseeccessessessessarssssessssesesss 


CZDZA -HO 
CZDZAH.P11 


G3 


SEQ 32 


MACY11 SOAC1052) 19- eae 16:22 PAGE 32 


19-JUN-64 15:45 


T PARAMETER BLOCK 


OZCR6: .BLKW 1 To ETVe STATUS REGISTER FOR 0Z11 NUMBER 6 
Ozvc6é: .BLKW 1 CEIVER AND BASE VECTOR FOR 0Z11 NUMBER 6 
OZLV6: .BLKW 1 1PRIORITY LEVEL AND EIA FLAG SELECTOR 

LINE6: .BLKW 1 sALL LINES SELECTED 

PAR6: .BLKW 1 s PARAMETERS 

MANT6: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 


: -- END O MACRO cececsccccsccaseses 


3 - $6 JUNK -cescecscenesesesessessasssesesssssss 


OZCR7: .BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 7 
OZvC7: .BLKW 1 sRECEIVER AND BASE VECTOR FOR 0Z11 NUMBER 7 
OZLv7: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
LINE7?: .BLKW 1 sALL LINES SELECTED 
PAR?; .BLKW 1 “4 TERS 

1 MAINTENANCE MODE FOR THIS DEVICE 


MANT7:  .BLKW 
: -- END O MACRO pualaieienamenenaedl 


5 - $6 JUNK - seessessessensesesseasesssaessesessss 


OZCR1i0: .BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 10 
OZVC10: .BiKW 1 sRECEIVER AND BASE VECTOR FOR 0Z11 NUMBER 10 
OZ.v10: .BiKW 1 SPRIORITY LEVEL AND EIA FLAG SELECTOR 

LINE1O: .BiKW 1 sALL LINES SELECTED 

PAR1O; .BLKW 1 CAINrBaoe 

MANT1O: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 


3 - 6 JUNK -cessesccesesesesssessseessassssensss 


OZCR11: .BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 11 
OZVC1i: .BLKW 1 iRECEIVER AND BASE VECTOR FOR 0Z11 NUMBER 11 
OZLV11: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 

LINE11: .6LKW 1 sALL LINES SELECTED 

PARI1: .BLKW 1 sPARAMETERS 

MANT11; 1 sMAINTENANCE MODE FOR THIS DEVICE 


-BLKW 
3 -- END O MACRO esesesesecsssssesss 


3 -$ JUNK -cesesessccsesssssseesssesssesesssess 


OZCRi2: .BiKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 1 
OZvCi2: .BLKW 1 sRECEIVER AND BASE VECTOR FOR 0211 NUMBER 12 
OZVvi2: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 

LINE12: .BLKW 1 ALL LINES SELECTED 

PARi2: .BLKW 1 VPARARE TERS 

MANTI2: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 


3s -- END 0 MACRO TEE ete atetatene 


3 - 6 JUNK - er esessccessssessssassessessssesssss 


OZCR13: .BiKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 15 
OZVCi3: .BLKW 1 sRECEIVER AND BASE VECTOR FOR 0211 NUMBER 15 
OZLV13: .BLKW 1 SPRIORITY LEVEL AND EIA FLAG SELECTOR 
LINE1S;: .BLKW 1 sALL LINES SELECTED 
PARIS; .6LKW 1 1 PARAME TERS 
MANT13: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 
s -- END O MACRO eeecesesesesccessess 
§ - 6 JUNK - cesescsccsssessssssssescacsaseseseses 
OZCR14; .BiKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 1 
OZvCi4: .BLKW 1 sRECEIVER AND BASE VECTOR FOR 0211 NUMBER 14 


CZDZA-HO 
CZDZAH.P11 





MACY11 SOAC1052) 19-JUN- po 16:22 PAGE 33 


19-JUN-64 15:45 


177777 


H3 
SEQ 33 
T PARAMETER BLOCK 
OZLVi4: .BLKW 1 sPRIORITY LEVEL AND EIA FLAG SELECTOR 
LINE14: . 1 sALL LINES SELECTED 
PARI4: .BLKW 1 sPARAMETERS 
MANT14: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 


3 -- END O MACRO seeeccesescesesases 


3 - 8 JUNK -seesscescessccsscesesssesesasassssss 


OZCRiS: .OLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 1 
OZVCiS: .OLKW 1 sRECET AND BASE VECTOR FOR 0Z11 NOPBER 15 
OZLViS: .6LKW 1 }PRIORITY LEVEL AND EIA FLAG SELECTOR 

LINE1S: .BLKW 1 sALL LINES SELECTED 

PARIS: .BLKW 1 1p TERS 

MANTIS: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 


3 - 6 JUNK -ceccesesesessessesssssssssssssssases 


OZCR16: .BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUPBER 16 
OZvCi6é: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 16 
OZLV16: .BLKW 1 sPRIORITY LEVEL a EIA FLAG SELECTOR 

LINEI6: .BLKW 1 sALL LINES SELECTED 

PARIG: .BLKW 1 - PARAME 

MANT16: 1 MAINTENANCE MODE FOR THIS DEVICE 


-BLKW 
3s -- EXD O MACRO cniauehbocnsmanasns 


3 - 6 JUNK - seessecessssssesecesesesssssssssesss 


OZCR17: .BLKW 1 sCONTROL STATUS REGISTER FOR 0Z11 NUMBER 
OZVC17: .BLKW 1 sRECEIVER AND BASE VECTOR FOR 0211 NOPBER. 17 
OZLvi7: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 

LINE17;: .LKW 1 sALL LINES SELECTED 

PARI7: .BLKW 1 sPARAME TERS 

MANT17: 1 MODE FOR THIS DEVICE 


-BLKW sMAINTENANCE 
3s -- END O MACRO cecesssesecsesssses 
OZ.END: 177777 





I3 






















SEQ 34 





CZDZA-HO MACY11 —— 19-JUN- po 16:22 PAGE 34 
CZOZAH.P11 19-JUN-64 15:4 PARAMETER BLOCK 


1514 sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
1515 sPOINTERS TO SUBROUTINES CAN BE FOUND 
1516 sIN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 


1518 § LSROSSASSSSSSSSSSSSHSSSHASHSHASSSSSHESSASOSSSESSEAESSESEESESSEEESEEEES 


1526 002002 . TRETAB: 
1S21 104400 sroeaneagiane ~~ sCALL TO ADVANCE TO NEXT TEST( OR SCOPE THIS ONE) 
1523 t-- END 0 MACRO eeeecesesecsessesss 
1S24 104401 SCOP 1° TRAP +1 . sCALL TO LOOP ON CURRENT DATA HANDLER 
1526 s-- END 0 MACRO seeecesecessesessss 
1527 104402 ieee om sCALL TO TELETYPE OUTPUT ROUTINE 
1529 : -- END O MACRO secessecesenceceses 
1530 1044035 INSTR= TRAP +S sCALL TO ASCII STRING INPUT ROUTINE 
006252 INSTR 
1532 3 -- END O MACRO ceccececescesessees 


1533 104404 INSTER* TRAP +4 sCALL TO INPUT ERROR HANDLER 
006426 INSTER 


1535 ts -- END 0 MACRO ceeceseesscesssssss 

1536 104405 popes sCALL TO NUMERICAL DATA INPUT ROUTINE 
1538 3 -- END 0 MACRO sseceseseccsssssess 

1539 104406 mernrteciianr = 9 sCALL TO SET FLAG ROUTINE 


1541 3 -- END O MACRO seecccesesssesesess 

1S42 104407 SAVOS= TRAP +7 sCALL TO REGISTER SAVE ROUTINE 
006646 . SAVOS 

1544 3 -- MACRO seeceesesesssssesss 

1545 104410 RESOS* TRAP +10 sCALL TO REGISTER RESTORE ROUTINE 


1547 3 -- eeescessseosssesases 

1548 104411 ommentiag* ™ sCALL TG DATA OUTPUT ROUTINE 

1550 3 -- END seeseecessesessssss 

1551 104412 CNVRT*TRAP +12 sCALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
1552 002026 006744 -CNYRT 

15535 3 -- END O MACRO seeccesseessesescss 

1554 104413 DEVICE .CLR= TRAP +15 sCALL TO ISSUE A DEVICE CLEAR 

1555 002030 007144 .DEVICE .CLR 


1556 3s -- END O MACRO seecescccscsesssses 
1557 104414 DELAY= TRAP +14 sCALL TO DELAY FOR FAST CPU'S 
1558 002032 007176 -DELAY 


1559 3 -- END O MACRO ceececescccsessssess 
sCONVERT DECIMAL STRING TO OCTAL 


J3 


ZDZA -HO MACY11 SOA(10S2) 19-JUN-64 16:22 PAGE 35 
CZDZAN-PLL 19-JUN-64 15:45 APT PARAMETER BLOCK 


: -- END O MACRO eeecesececescessccs 
104416 PAWCH= TRAP +16 sSET FLAG ECHO OR CABLE 
002036 027140 . PAWCH 


;_-- END 0 
104417 DCLASM=* TRAP +17 sCLEAR DEVICE, SET MAINT. BIT IF I MODE 
002040 007164 .OCLASM 
: -- END 0 MACRO eeeeesececesscceses 


- LRORAAEAAKAHEAHEAASAASHARSHOSEHOKEHAMEAESSSSOEHSERAEMRAHASEHEASEHASEHREAHSHESSH 





KS 


CZDZA-HO MACY11 30A(1052) 19-JUN-864 16:22 PAGE 36 s08 5 
CZDZAH.P11 19-JUN-64 15:45 PPT PARAMETER BLOCK 
1572 30211 VECTOR AND REGISTER INDIRECT POINTERS 
2h sWORKING AREA 
1 
1575 002042 160040 OZCSR: 160040 ;R/W 
1576 002084 160041 HDZCSR: 160041 ;R/W 
1577 002046 160042 OZRBUF: 160042 ,RE 
1578 002050 1600435 HDZRBUF : 160043 ;READ ONLY 
1579 002052 160042 OZLPR: 1 8 
1580 002054 160043 : 160043 ,WRITE ONLY 
15861 002056 160044 OZTCR: 3R/W 
1582 002060 160045 MDZTCR: 160045 ;R/W 
1583 002062 160046 0. s ¥ sREAD ONLY 
1564 002064 160047 : 160047 ;READ ONLY 
1585 002066 160046 OZTOR: 160046 ;WRITE ONLY 
1586 002070 160047 HDZTOR: 160047 ;WRITE ONLY 
1587 sDEFAULT OZ VECTORS 
1588 002072 000300 OZRIV: 300 sREC INTR VECTOR 
1589 002074 000302 OZRIS: 302 REC INTR STATUS 
1590 002076 000304 OZTIV: 304 sXMIT INTR VECTOR 
oo 002100 000306 OZTIS: 306 sXMIT INTR STATUS 


L3 


37 
CZDZA-HO MACY11 3OAC105S2) 19-JUN-84 16:22 PAGE 37 SEQ 
CZDZAH.P11  19-JUN-84 15:45 APT PARAMETER BLOCK 

1594 

1595 , TIME TABLE FOR RELATIVE TIMING TESTS 

1596 fereccecccndnenscessceneesonnsneseces 

1597 

1598 002102 THTBL: 

1599 002102 000000 150: 0 

1600 002104 000000 175: 0 

1601 002106 000000 T110: 0 

1602 002110 000000 T134: 0 

1603 002112 000000 T150: 0 

1604 002114 000000 —- 

1605 002116 000000 1600: 0 

1606 000000 T1200: 0 

1607 002122 000000 T1800: 0 

1608 002124 000000 12000: 0 

1609 002126 000000 12400: 0 

1610 002130 000000 T3600: 0 

1611 002132 000000 14600: 0 

1612 002134 000000 17200: 0 

1613 002136 000000 19600: 0 

1614 002140 000000 TEIGHT :0 


~ 
a 
a 
5 
=~ 
w 
ea 
E4 

ooo 


SEO 36 
CZDZA-HO MACY11 3OAC(105S2) 19-JUN-64 16:22 PAGE 38 
CZDZAN.P11  19-JUN-84 15:45 PROGRAM INITIALIZATION AND START UP. 
1618 
1619 }PROGRAM INITIALIZATION 
1620 ;LOCK OUT INTERRUPTS 
1621 ISET UP PROCESSOR STACK 
1622 ISET UP POMER FAIL VECTOR 
1623 SCLEAR PROGRAM CONTROL FLAGS AND COUNTS 
1624 ITYPE TITLE MESSAGE 
1625 
1626 002150 “START: 
1627 002150 000005 RESET ;CLEAR THE WORLD. START NEW ENVIRONMENT 
1628 002152 012706 001120 MOV. @STACK, SP ISET UP STACK 
1629 002156 106427 000340 HTPS —- @PRT ;LOCK OUT INTERRUPT 
1680 002162 0127387 010320 000026 HOV  @SPMRON,@024 ©, SET UP POWER FAIL VECTOR 
1631 002170 012737 005122 000020 HOV «- @SSCOPE,, BOTOTVEC ,SET VECTOR FOR SCOPE ROUTINE 
1632 002176 012737 HOV - 0340, @OIOTVEC+2 ;LEVEL 7 
1633 012737 007230 000030 MOV —«@SERROR, BEENTVEC ISET VECTOR FOR ERROR ROUTINE 
1634 002212 012737 000032 MOVs: @ 340 Co2 ; 
1635 012737 007122 HOV TRESR. Be 'SET VECTOR FOR TRAP CALLS 
1636 012737 000036 MOV «0340, BOTRAPVEC«2 SLEVEL 
1637 002234 012737 010320 000024 MOV «SPUD, SEPURVEC "SET VECTOR FOR POMER FAIL ROUTINE 
1638 002242 012737 HOV «340, REPURVEC +2 iLEVEL 7 
1639 002250 113737 001410 001411 MOVE -DZMUM.SAVNUM _; SAVE NUMBER OF DEVICES IN SYSTEM. 
1640 002256 005037 CLR —s-SPASS SCLEAR PASS COUNT 
1641 002262 105037 001125 CLAB 0s SERFLG SCLEAR FLAG 
002266 012737 00 001412 MOV @DZ.MAP, ACTIVE GET MAP POINTER. 
1643 002274 012737 001406 MOVs @1,, RUN ‘POINT POINTER TO FIRST DEVICE. 
1644 002302 005037 001132 CLR —sSERTTL SCLEAR COUNT 
1645 002306 005037 001136 CLR ICLEAR LAST 
312 005037 001122 CLR ISET UP FOR TEST 1 
1647 002316 012737 002150 001126 HOV “START, (LPADR 1SET UP FOR POMER FAIL BEFORE 
1648 TESTING STARTS 
1689 :SET UP FOR SMALL 11 SWITCH REGISTER COMPATIBILITY 
1650 002324 013746 000006 MOV «6, -( SP) :SAVE BUS ERROR PS 
1651 002330 013746 MOV 44. -CSP) ; ERROR PC 
1652 002334 012737 HOV :.4 tSET UP TO TRAP TO THIS ROUTINE 
1653 002342 177777 176610 CH «1, 8SUR ‘CAN 177570 BE REFERENCED? 
1654 002350 001402 BEQ $ ‘IF SO AMD IT IS -1, TREAT LIKE SWITCHLESS 
1655 002352 000407 BR 218 MIF YES.SKIP AROUND THE SETUP 
1656 002354 022626 208:  PoP2sP IREMOVE THE TRAP FROM THE STACK 
1657 002356 012737 000176 001160 22%: MOV  @SWREG,SUR MIF NO. TRAP COMES MERE.POINT TO SOFTWARE SUR 
1658 002364 012737 000174 001162 MOV —«@DISPREG, DISPLAY ;POINT TO SOFTWARE DISPLAY REGISTER 
1659 002372 012637 000004 218: MOV (SP)+,4 ,RESTORE THE BUS ERROR VECTOR 
1660 002376 012637 MOVs (SP)s.6 
1661 105737 001415 TSTB :TITLE ALREADY PRINTED? 
1662 001010 BNE : IBRANCH IF YES 
1663 002410 023727 000042 005056 CHP «842, @SENDAD «= | RUNNING UNDER ACT? 
1664 002416 001402 BEQsé8 VIF YES OONT PRINT TITLE 
1665 002420 104402 001000 TYPE MTITLE ‘PRINT THE DIAGNOSTIC'’S TITLE 
1666 002424 105337 001415 31¢:  O€CB  INIFLG ISET THE ONCE ONLY FLAG 
1667 002430 105737 001255 293:  TSTB  s€NVM TOETERMINE WHETHER APT SIZING SHOULD BE DONE 
1668 002434 100006 BPLti«é#SOD HIF NOT, GO CHECK FOR AUTO-SIZING 
1669 002436 004737 012112 JSR «PC, SETAPT ‘OTHERWISE. GO DO APT SIZING FROM ETABLE 
1670 sREPLACE. “CLR HORFLG" WITH NOP’ 


NOP 
CLRB HORFLG sMAKE SURE STATUS TABLE IS PRINTED 





Bae Se ea ee TC eee eee, 


SEQ 39 

CZDZA-HO MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 39 
CZDZAH.P11 19-JUN-64 15:45 PROGRAM INITIALIZATION AND START UP. 

1674 002446 000137 004420 JP 16% sGO PRINT OZ STATUS TABLE 

1675 002452 032777 000001 176500 530%: BIT @SWOO0 , BSWR sRESELECT ? 

1676 002460 001011 BNE 328 sIF YES, GO SET UP THE INFORMATION 

1677 002462 122737 000377 001415 CoPB 0377, INIFLG 10N ja START; MUST ANSWER QUESTION 

1676 002470 001005 BNE .°10 sIF NOT ANSWERING QUESTIONS 

1679 002472 105777 176462 TSTB oe sARE U AUTO SIZING? 

1680 002476 10042 BMI 328 sNO AUTO SIZE! NO SWOO=1 ON 1ST START! 

1681 002500 000137 003244 JP 73% sIF NO, SKIP THE INTERROGATI 

1682 002504 012700 001500 328: MOV @0Z . RAP ,RO sPOINT TO THE BEGINNING OF THE MAP TABLE 

1683 002510 105037 001416 CLRB HORFLG sMAKE SURE A MAP GETS PRINTED 

1684 002514 005020 658: CLR CRO)+ sCLEAR A TABLE LOCATION 

1685 002516 020027 002000 cep RO, @0Z .END sHAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 

1686 002522 001574 BNE 65% sIF NOT ,CLEAR THE NEXT LOCATION IN THE TABLE 

ered 002524 105337 001415 OECB INIFLG sINSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 

1 

1689 ;TME FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 

ty sTABLE AND SET UP THE DIAGNOSTIC. 

1691 

| sGET THE BASE ADDRESS OF THE 0211'S 

1694 002530 338: 

1695 3 -$GETPAR-cevecsessessesessssssssssesssssss 

1696 002530 104403 INSTR sCALL THE ING 

1697 002532 003464 66% sPOINTER TO T PRINTED 

1696 002534 104405 PARAM 8 THE OCTAL TO ASCII CONVER 

1699 002536 sLOWEST LEGITIMATE VALUE OF SPONSE 

1700 002540 163770 163770 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

1701 002542 001500 OZCRO sPOINTER TO MAP LOCATION TO BE FILLED 

1702 002544 007 BYTE 7 sMASK OF INVALID BITS FOR THIS PARAMETER 

1703 002545 001 -6YTE 1 sNUMBER OF PARAMETERS TO STORE 

1704 3 -- END O MACRO seseesecesessssesss 

fas 002546 013737 001500 001510 HOV OZCRO, BASE sCOPY BASE ADORESS TO ETABLE 

ined sGET THE BASE VECTOR ADORESS 

1709 002554 348: 

1710 3 -$GETPAR-secsessesssscesesssssssssssssssss 

1711 002554 104405 INSTR sCALL THE STRING INPUT ROUT 

1712 002556 003530 67% sPOINTER TO MESSAGE TO IN 

1713 002560 104405 PES OM 8 THE OCTA TO ASCII CONVERT INE 

1714 002562 000300 ‘ es LEGITIMATE VALUE OF EXPEC RESPONSE 

1715 002564 000776 776 T LEGITIMATE VALUE OF EXPECTED RESPONSE 

1716 002566 001502 OzvCco ; POINTER TO MAP LOCATION TO BE FILLED 

1717 002570 003 -BYTE 3 sMASK OF INVALID BITS FOR THIS PARAMETER 

1716 002571 001 -BYTE 1 sNUMBER OF PARAMETERS TO STORE 

17:9 3 -- END O MACRO seceessesccssesssse 

tf 002572 013737 001502 001304 MOV OZVCO, $VECT1 sCOPY VECTOR TO ETABLE 

LY sGET THE BUS REQUEST LEVEL 

1724 3 - $GETPAR -sesecsessesesssesssesssssssssssss 

1725 002600 1044035 INSTR sCALL THE STRING INPUT ROUTINE 

1726 002602 003571 68% “oa > TO MESSAGE TO BE PRINTED 

1727 002604 104405 PAR AM THE OCTAL TO ASCII CONVERT ROUTINE 

1726 002606 000004 & {LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 


1729 002610 000007 7 sMIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 





B4 
SEQ 40 

CZDZA-H MACY11 SOA( 1052) 19-JUN-864 16:22 PAGE 40 

CZOZAN.P11 19-.AUN-64 15:45 PROGRAM INITIALIZATION AND START UP. 
1730 002612 001504 O2ZLVO sPOINTER TO MAP LOCATION TO BE FILLED 
1731 002614 000 BYTE O sMASK OF INVALID BITS FOR THIS PARAMETER 
Ree 002615 001 no's wa t sNUMBER OF PARAMETERS TO STORE 
17 t-- MACRO ccceccccescssecsscs 
1734 002616 113737 001504 001305 Move OZLVO,$VECTi+1 sGET BUS REQUEST LEVEL INTO ETABLE 
1735S 002624 106337 001505 ASLB 6VECTiel SALIGN THE BITS PROPERLY 
1736 002630 106337 001505 ASLB $VECTieol sALIGN THE BITS PROPERLY 
1737 002634 106337 001305 ASLB 6VECTiel 3M.IGN THE BITS PROPERLY 
1738 002640 106337 001505 ASLB @VECT1ieol ; sALIGN THE BITS PROPERLY 
1739 002644 106337 001505 ASLB 6VECTiol sALIGN THE BITS PROPERLY 
1740 
1741 sFIND OUT IF MODULE IS EIA OR 20 MA. 
1742 
1743 002650 104402 004260 TYPE , 748 sPRINT EIA MESSAGE 
1744 002654 095037 001220 cC.R ¢TMP1 sUSE STHP1 
1745 002660 105777 176300 608: TST6 OsTKS sIS KEYBOARD DONE? 
1746 002664 1003575 BPL 608 sIF NOT, WAIT FOR IT 
1747 002666 017746 176274 MOV Os TKB, -(SP) sIF » PUT CHARACETR ON STACK 
1748 002672 042716 177600 Bic #177600 ,(SP) sSTRIP OOWN CHARACTER 1 30SH-BL 
1749 002676 122716 0000235 CHB OSXOFF ,( SP) sIS I} A XOFF? 3 :0SH-B 
1750 oOo2702 001014 ONE 63s 27®R IF NOT 3 30SH 
1751 002704 105777 176254 1018: TsT8 OsTKS sWAIT FOR A CHARACTER 3 s30SH-B 
1752 002710 1003575 BPL 1018 3 s0SH-G+L 
1753 002712 117716 176250 OsTKe (SP) sGET CHARACTER 3 s0SH-6H. 
1754 002716 042716 177600 BIC (SP) sSTR 3 30SH-OFL 
1755S 002722 122716 000021 @$X0N, (SP) sWAIT FOR A XON? 3 :0SH-6+. 
1 002726 001566 ONE 1018 sGET NEXT CHAR IF NOT 3 30SH-B+ 
1757 002730 005726 TST (SP )« sPOP STACK 88 
1758 002732 000752 BR 606 sWAIT FOR A CHAR 3 s0SH 
1759 002734 122716 000021 63%; Cre @¢X0N, (SP) 3sIS IT A RANDOM XON 3 30SH-BHL 
1760 002740 001002 BNE 1028 8 3 s0SH-BoL 
1761 002742 005726 TSsi (SP )- s€LSE, POP STACK 3 s0SH- 
1762 002744 000745 dR 3GO GET NEXT CHAP 3 s0SH-BHL 
i763 002746 122726 000015 1028:  ChPB @15,(SP)- 3IS IT <CR> ? 
1764 OO027S2 001414 REQ sIF A 
1765 002754 014677 176212 MOV -(SP), 06 IF PRINT CHARACTER 
1766 002760 0427357 001504 BIC #6IT15,0ZL V0 sCLEAR EIA FLAG 
1767 002766 122726 000102 ChPB @102,(SP)+ sIS ? 
1768 002772 0013532 BNE 80% sIF NOT, GO BACK FOR INPUT 
1769 002774 052737 100000 001504 BIS o6IT1S,0ZLVv0 sIF SO, SET FLAG 
1770 003002 000726 6R B56 sGET MORE INPUT 
fae 003004 618: 
phe sGET THE MODE OF OPERATION (E.I.S) 
1775 G- eesccccccsacessesesssssaseses 
1776 003004 104405 INSTR HALL THE STRING INPUT ROUTINE 
1777 003006 004002 726 tg TO THE ae rage TO BE PRINTED 
1776 003010 104406 SETFLG sCALL THE MAINTENANCE FLAG SETUP ROUTINE 
1779 003012 001512 MANTO s THIS is THE FLAG BEING SETUP 
fas s -- END O MACRO ceccccccccccecesses 
phe sGET THE NUMBER OF 0211'S RUNNING 
1784 4 - (GE TPAR -ceccccsccccsesssesesesascsesesess 


1765 003014 1044035 INSTR sCALL THE STRING INPUT ROUTINE 


_ CZDZA-HO 
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000010 


177774 
077777 


001506 
001510 


007214 
176076 


001312 
001410 
001411 


001222 
001404 


175706 
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618: 


41%: 


73%: 


426: 
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16:22 PAGE 41 
PROGRAM INITIALIZATION AND START UP. 


1 
- END 0 MACRO eecccesccecescccese 


SSSbSSS SR GSRSSSSSSARERSSSG 


Qo 
Lad 
“nn 


STL ERrE 


0 


0377 ,LINEO 
#17070, PARO 


#1 OL YONT 
@swo 


CRO 
(RO)+, CR1 D> 


SEQ 41 


sPOINTER TO MESSAGE TO BE PRINTED 
CALL oc 


ON TO BE FILLED 
MASK OF INVALID BITS FOR THIS PARAMETER 
INUMBER OF PARAMETERS TO STORE 


sSET UWP DEFAULT LINES 
sSET UP DEFAULT LPR PARAMETER 
IVER ON; 9600 BALD; 2STOP BITS; 8 BIT/CHAR 
s INIT oye OELAY COUNT 
100 YOU WANT PARAMETERS? 
ta NO, SKIP THE PARAMETER CALL 
| INITIALIZE ACTIVE DEVICE SELECTION PARAMETER 
sCOPY THE NUMBER OF DEVICES 
iCOPY A BACKUP NUPBER 
s¢ThP1 CONTAINS THE COUNT OF UNINITIALIZED 


s SELECTED DEVICES 
sSET A BIT FLAG TO INDICATE AN ACTIVE DEVICE 
sPOINT TO THE NEXT DEVICE 

THIS PROCEDURE AGAIN 


3G0 00 

3@ OF TIME 

sCOPY THE ACTIVE DEVICE PARAMETER 

1SET A POINTER TO THE SPECIFIED INFORMATION 
sPOINT Ri TO THE REST TABLE 
sPOINT TO ETABLE'S DEVICE OE Ue 
sINITIALIZE THE IT FOR A ROTAT 

sSKIP MAPP SETUP FOR DEVICE O- IT’S DOME 


IP ING 
sISOLATE A SELECTION FLAG IN THE °C” BIT 
sIS THES ro, _ IF YES, GO LOAD TABLE 


s TERMINA 

160 TO THE NEXT BLOCK 

s ADORE SS 

:POINT TO THE NEXT 0Z11 ADORESS VALUE 


8 
sPOINT TO THE NEXT VECTOR VALUE 
sLEVEL 


sLINES 

sGET THE EIA FLAG FROM THE PRIORITY WORD 
sISOLATE THAT FLAG 

sADO PARAMETERS TO DEVICE DESCRIPTOR WORD 


sASK P 

sIF NO AUTO SIZING 
1GO SET UP FOR AUTO SIZING 
3GO ASK PARAME 


TER 
sINSURE NO AUTO SIZE IF QUESTIONS ANSWERED 
160 TO THE NEXT BLOCK 


sGET THE ACTIVE LINES PARAMETER 





| D4 


SEQ 42 
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1642 003274 23%: 
1843 3 -SGETPAR -cccecccescsccsesesesesssesesessss 
1644 003274 104405 TR sCALL THE STRING 
1845 003276 003614 69% sPOINTER TO ME 
186 104405 PRA AM TA TO ASCII 
1647 000001 1 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
1648 003304 0003577 377 j TIMATE VALUE OF EXPECTED RESPONSE 
1849 003306 001506 LINEO sPOINTER TO MAP LOCATION TO BE FILLED 
1850 003310 000 BYTE 0 sMASK OF INVALID BITS FOR THIS PARAMETER 
1651 003312 001 BYTE 1 sNUMBER OF PARAMETERS TO STORE 
1852 s -- END O MACRO ceececececccesccces 
es 003312 105037 001416 CLRB HORFLG sMAKE SURE THE CHANGES ARE PRINTED 
1 
1855S sTHIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 
34 iTS LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 
1657 
1658 0v3316 905737 001512 TST MANTO sIS STAGGERED THE MODE OF OPERATION? 
1659 OG3322 100021 BPL 26* sIF NOT, SKIP THIS SEGMENT 
1860 003324 0135703 001506 MOV LINEO,RS sGET A SCRATCH COPY OF THE ACTIVE LINES 
1861 003330 006005 24%: ROR RS sGET A LINE SELECTION BITCEVEN NUPBER 
1662 003332 103410 ecs 25% sIF IT IS IF THE NEXT IS TOO 
1863 003334 001414 BEQ «68 1IF ALL HAVE CHECKED, CONT 
1664 003336 006205 ASR R3 sIF IT IS 0,CHECK TO SEE IF THE NEXT IS TOO 
1865 003340 103373 Bcc as sIF_THIS ONE'S 0 TOO, GO CHECK THE NEXT PAIR 
1866 003342 104402 001230 278: TYPE » $QUES sTHIS IS AN INCORRECT PARAMETER 
1667 003346 104402 011075 TYPE oMBADLN sLET THE USER KNOW ABOUT IT 
1868 003352 BR 23% +3 GET THE CORRECT PARAMETER 
1669 003354 001772 25%: BEQ 27% FLAG ISN'T SET, THERE'S AN ERROR 
1870 006203 R 1GET THE NEXT FLAG 
1671 003360 103370 ecc 27% sIF IT ISw’T SET, 'S AN ERROR 
1872 003362 000241 cLc sINITIALIZE THE “C* BIT FOR YESTING OF THE NEXT PAIR 
ay 003364 000761 BR 24s 3GO TEST THE NEXT PAIR OF FLAGS 
dh sGET THE LINE PARAMETER REGISTER ARGUMENT 
1877 003366 26%: 
1878 3 -SGETPAR-cecesccccecccesssscessseserssssss 
1879 003366 104403 INSTR sCALL THE STRING INPUT ROUTINE 
1660 003370 003670 70% sPOINTER TO T PRINTED 
1681 003372 104405 PARAM sCALL THE OCTA TO ASCII 
18862 003374 0 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
1663 003376 000017 17 sMIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
1684 003400 001510 PARO sPOINTER TO MAP LOCATION TO BE F 
1885 003402 000 BYTE 0 sMASK OF INVALID BITS FOR THIS PARAMETER 
1886 003403 001 BYTE 1 sNUMBER OF PARAMETERS TO STORE 
1687 3s -- END O MACRO cosececesescesceszes 
1688 003404 012702 001506 mov @LINEO ,R2 s#POINT TO THE LINE ag rth PARAMETER 
1689 003410 012705 001510 MOV @PARO RS sPOINT TO THE CHOSEN PARAMETER 
1690 003414 011304 MOV cea — BAUD RATE AS AN INDEX IN DELAY TABLE 
1891 003416 006304 ASL INDEX ON WORD BOUNDARY 
1892 003420 016437 032416 007214 MOV OLYTBLCRA), ovvent ss T THE DELAY COUNT FOR THIS BAUD RATE 
1693 003426 000315 SWAB CR3) 1PLACE IN HIGH BYTE 
1694 003430 052713 010070 BIS #10070, (R3) iPLACE EXTRA PARAMETERS INTO LOC 
1695 003434 011262 000014 26%; MOV (R2),14(R2) sLOAD THE LINES 
1896 003440 011363 000014 MOV CRS), 14(R3) sLOAD THE PARAMETERS 
1697 003444 062702 000014 ADO 14,R2 sPOINT TO THE NEXT SET 





CZDZA-HO 
CZD0ZAH.P11 


1902 


~ 
Be teeieneeneaes 

BP IRD PO foo fk pel Pat BaD find feud fee Pe pee peo 
Mey y yyy YY UUUYY 


1904 


003450 
003434 


MACY11 SOAC1052) 19-JUN-84 
19-JUN-84 as 


iS: 


001222 
177777 


000042 
000100 
010771 


174436 
010643 
174416 
001404 
000020 


001222 


174454 


001312 


001404 


174400 


16%: 


178: 


1%: 


9%: 
2s: 


3%; 


E4 





SEQ 43 


16:22 PAGE 43 
PROGRAM INITIALIZATION AND START UP. 
ADO #14,R3 1 .. OF BOTH PARAMETERS 
CMP R3, @PARI7 sMAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
BNE 26% +4 NOT, GO LOAD SOME MORE PARAMETERS 
RTS PC TO CALLING BLOCK 
-ASCIZ <200>/1ST CSR sooness €160000:163700): / 
.ASCIZ <200>/1ST VECTOR ADORESS (300:770): / 
-ASCIZ <200>/OR LEVEL (4:6): / 
.ASCIZ <200>/LINES ACTIVE BY BIT <IN OCTAL>(001:377): / 
-ASCIZ «200>/DEFAULT BAUD RATE <IN OCTAL>(00:16): / 
-ASCIZ <2002/@ OF 0211'S <IN OCTAL> (1:20): / 
.ASCII <200>/MAINTENANCE / 
-ASCII <200>/ (EXTERNAL <HS25>-EIA ONLY (E))/ 
-ASCII <200>/ (INTERNAL <DZCSROS-1> (I))/ 
-ASCII <200>/ (STAGGERED <HS271:-EIA ONLY ($)): 7 
-ASCIZ <200>/ (STAGGERED <H3190>-20MA ONLY €S)): 7/ 
.ASCIZ <200>/TYPE “A” FOR EIA MODULE OR “B” FOR 20 MA (A:B): / 
-ASCIZ <200>/ENTER DELAY PARAMETER: / 
+% ee sONLY DO AUTO SIZE ON 1ST START 
rf 
BIT @8IT7,GSUR 38177°177? 
BNE $ 36R IF NO AUTO SIZE 
JSR PC ,AUTO. SIZE 3GO THE AUTO SIZE 
TSTB G sMAS THE TABLE TYPED YET? 
ONE is sIF SO, DON’T TYPE IT AGAIN 
OECB MORFLG tINDICATE THAT THE TABLE WILL BE TYPED 
TYPE » XHEAD sTYPE MAP HEADER 
MOV €02 . MAP ,RO 3SET POINTER 
MOV RO, $THP1 sPOINT TO THE MAP LOCATION 
MOV (RO)+, ¢TMP2 3SET DATA 
CMP 6-1, ¢TMP2 sEND OF LIST? 
BEG is 30R IF YES 
T ae — OCTAL TO ASCII CONVERSION ROUTINE 
XSTATQ T THE DATA AT THIS ADORESS 
BR S$ :60 PRINT THE NEXT PARAMETER 
TST BHa2 31S PROGRAM RUNNING UNDER MONITOR 
BNE 3% sYES 
2 ere +5 SPECIFIC DEVICES??? 
TYPE . MNEW i TYPE THE MESSAGE. 
CLR RO 3ZERO DATA DISPLAY . 
HALT sWAIT FOR USER TO TELL WHAT DEVICES TO RUN 
CMP SSWR , SDEVM 3IS THE NUMBER VALID? 
BLOS s8R IF NUMBER IS OK. 
TYPE »MERRS S TELL USER OF INVALID NUMBER. 
HALT sSTOP EVERY THING. 
BR 9% RESTART THE PROGRAM AGAIN. 
MOV GSWR ,OZACTV 3GET NEW DEVICE PATTERN 
MOV OZACTV,RO sSHOW THE USER WHAT HE SELECTED. 
HALT sCONTINUE DYNAMIC SWITCHES. 
BIT @SW04 , BSWR 3CHECK TO SEE IF DELAY COUNT CHANGES 
BEQ 186% - = CLEAR VECTOR AREA 
INSTR ICALL THE STRING INPUT ROUTINE 
758 }POINTER TO MESSAGE TO BE PRINTED 


CZDZA-HO 
CZ0ZAH.P11 


MACY11 3OAC1052) 19-JUN-64 
19-JUN-84 15:45 


104405 


000001 
177777 
007214 

000 


001 


000300 
000302 


174310 


005140 


005140 
001126 


Fa 


16:22 PAGE 44 





SEQ 44 


PROGRAM INITIALIZATION AND START UP. 


sCALL THE OCTA TO ASCII CONVERT ROUTINE 


ON BE FILLED 
sMASK OF INVALID BITS FOR THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 


t-- END O MACRO secesceccesccscecss 


168: 
4%: 


1%: 
2s: 


@PR7 
TST = 
BIT e8IT2, GSR 
BEQ 
TYPE »MLOCK 
MOV @NOP , TTST 
BR 2s 
MOV RW, TTST 
MOV @CYCLE , SLPADR 
TYPE Aa 
JP @SLPADR 


sPREPARE TO CLEAR oo FLOATING 


sSET UP STACK 
OuT 


sLOCK INTERRUPTS 
iTS PROGRAM UNDER MONITOR CONTROL 
s6R IF YES 
1 CHECK FOR LOCK ON TEST 
s6R_ IF NO LOCK DESIRED. 
sTYPE LOCK SELECTED. 
sADJUST SCOPE ROUTINE 
sCONTINUE ALONG. 
sPREPARE NORMAL SCOPE ROUTINE 
START AT “CYCLE” FIND WHICH DEVICE TO TEST 


"RUNNING “” 
iSTART TESTING 


END 0 MACRO eeeescceseesesssess 





SEQ 45 
CZDZA-HO MACY11 SOAC 1052) 19-JUN-864 16:22 PAGE 45 
CZDZAH.P11 39-JUN-64 15:45 END OF PASS ROUTINE 


sUPDATE PASS COUNT 
sCHECK FOR EXIT TO ACT-11 
sRESTART TEST 

. SBTTL END OF PASS ROUTINE 


§ LOMSORSAEESESESEREESEEEEEEEEEEEEEEEREREEOEEEEEEE EEE EEDEEEEEESE 
s@INCREMENT THE PASS NUMBER ( $PASS) 

s@IF THERES A MONITOR GO TO IT 

seIF THERE ISN'T JUMP TO CYCLE 


004712 $EOP: 


’ -PASEND - sseeccecsssesssesesessesssssssssss 


sERRPC sCLEAR LAST ERROR PC 


004744 104412 1 ° IT 
004750 005237 $PASS sRAISE PASS COUNT 
0047S4 1 010732 a 


SCOPE 
CLR 
TYPE 
TYPE 
CNVRT 
TYPE 
CNVRT 
TYPE 
CNYRT 8 
001242 DEC ¢PASS sRESTORE PASS COUNT 

004770 104402 010743 TYPE »MERRX sTYPE ERRORS 
CNVRT XERR 
OECB 
CLR 
BIC 
DEC 
BGT 
MOV 
sEOPCT 
BE 
RESET 
uP 


° 1 SHOW IT 
SAVNUM Jy ALL DEVICES TESTED? 


1 $00AGN 
005006 113737 001410 001411 | OZNUM, SAVNUM )RESTORE THE COUNT 


005014 005037 001226 $TIMES 42 THE NUMBER OF ITERATIONS 

005020 005237 001242 $PASS THE PASS NUMBER 
042737 100000 001242 #100000, $PASS ; DON’ T ALLOW A NEG. NUMBER 

005032 005327 (PC )+ 3 sLOOP? 

005034 000001 sEOPCT: 1 

005036 003015 $O00AGN ss YES 

005040 012737 CPC )+, @CPC)> ssRESTORE COUNTER 

005042 000001 SENDCT: .WORD 1 


005046 013700 000042 $GET42: MOV 8042 ,,RO 1 3GET nog ty ADORE SS 





pe 





H4 
SEQ 46 
CZDZA-HO MACY11 3OA(1052) 19-JUN-64 16:22 PAGE 46 
CZDZAM.P11 19-JUN-64 15:45 END OF PASS ROUTINE 
2029 005104 002072 OZRIV 
2030 005106 000001 XPASS: 1 
2031 005110 006 002 .BY 6.2 
2032 OO0S112 001242 PASS 
2038 005114 000001 XERR: 1 
2034 005116 006 002 BYTE 6,2 
eng 005120 001132 sERTTL 
20. 
2037 os LOOP AND ITERATION HANDLER 
meGeB lu a peneemenaeereseseesagrererss 
2039 
2040 .SBTTL SCOPE HANDLER ROUTINE 
2041 
2042 js OOHSORESESESESEEEEDESESEEEEEEEEEESESESEEESESESESOSESESESESEEECS 
2043 s@THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
Oda :@AND LOAD THE TEST NUMBER(¢TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>) 
2045 s@AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:06> 
2046 3@THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
2047 3eSW14e) LOOP ON TEST 
2048 seSWilel INHIBIT ITERATIONS 
2049 s@CALL 
2050 3% SCOPE 3 sSCOPE=IOT 
2051 
2052 005122 $SCOPE : - 
2054 005122 004737 007652 .SCOPE: JSR PC, SERV.G iFIND OuT IF <tG> WAS HIT 
2055 005126 001136 CLR SERRPC sCLEAR LAST ERROR PC. 
2056 005132 7 013050 CHP @TST1+2,(SP) 3IS THIS THE SCOPE AT THE BEGINNING OF TST1? 
2057 005136 001417 REQ ¢xXTSTR sIF SO, DON'T LOOP ON IT 
2058 005140 0004 TTST: 6R 1% sGOTO 1% CIF LOCK SWO2*1; THIS LOC =240) 
2059 005142 105777 174016 TSsT8 esTKS sKEYBOARD DONE? 
2060 005146 1000735 BPL sOVER 30R IF NO. (CLOCK: HIT KEY TO GOTO NEXT TEST) 
2061 OOS1L 127727 174012 000021 Chops Ot TKB , @¢X0N sIS CHAR A RANDOM XON ? 3 30SH 
2062 005156 001467 REQ sOVER 30R IF YES 3 30SH 
2063 005160 017766 174002 177776 eo’ @tTKB, -2¢SP) 
2064 t o-- seseeeeaeaenaeasaesesaeces 
2065 005 032777 040000 173764 1%: BIT @BIT14, GSR 33LO0P ON PRESENT TEST? 
2066 005174 001060 sOVER ssVYES IF SWiée1 
2067 sOOOCOSTART OF wy FOR THE XOR TES 
2068 005176 000416 $XTSTR: BR ssIF RUNNING ON THE “XOR” TESTER CHANGE 
2069 ssTHIS INSTRUCTION TO A “NOP” (NOP=240) 
2070 005200 013746 000004 MOV @CERRVEC.-(SP) 1:SAVE CONTENTS OF THE ERROR VECTOR 
2071 005204 012737 005224 000004 MOV 53%. 33SET FOR TIMEOUT 
2072 005212 005737 177060 TST 00177060 ssTIME OUT 
2073 005216 012637 MOV (SP)« @SERRVEC ; ; RESTORE ERROR VECTOR 
2074 005222 000436 BR 33GO TO THE NEXT TEST 
2075 005224 022626 S$: CMP (SP)+,CSP)-« 3sCLEAR THE STACK AFTER A TIME OUT 
2076 005226 012637 000004 MOV (SP)>+, ssRESTORE THE ERROR VECT 
2077 005232 000441 BR sOVER 33L00P ON THE PRESENT TEST 
2078 005234 64:  @SGOIEND CODE FOR THE XOR TESTERGCCCE 
2079 005234 105737 0011235 : TSTB ¢ERFLG s34HAS AN ERROR OCCURRED? 
2060 005240 001404 Q 36 3360R IF NO 
2061 005242 105037 001125 4s sERFLG + ay THE ERROR F 
2062 005246 005037 CLR ¢TIMES 3sCLEAR THE NUMBER” oF ITERATIONS TO MAKE 
2063 005252 032777 173700 3¢: BIT #681T11,8SWR ss INHIBIT ITERATIONS? 
2064 005260 001011 BNE 1% 336R IF YES 





14 


SEQ 47 
CZDZA-HO MACY11 SOA( 1052) 19-JUN-64 16:22 PAGE 47 
CZDZAH.P11 19-JUN-64 15:45 SCOPE HANDLER ROUTINE 
2085 005262 005737 001242 TST ¢PASS ssIF FIRST PASS OF PROGRAM 
2086 005266 001406 BEQ 1s s8 INHIBIT ITERATIONS 
2067 005270 005237 001124 INC ¢ICnT ss INCREMENT ITERATION COUNT 
20868 005274 023737 001226 001124 Cop ¢TIMES, SICNT 3sCHECK THE NUMBER OF ITERATIONS MADE 
2089 005302 002015 BGE sOVER s6R IF MORE ITERATION REQUIRED 
2090 005304 012737 000001 001124 1%: MOV #1, SICNT ssREINITIALIZE THE ITERATION COUNTER 
2091 005312 013737 005374 001226 MOV SMXCNT,¢TIMES 4;SET NUMBER OF ITERATIONS T 
2092 005320 105237 001122 ¢SVLAD: INCB ¢TSTNM ssCOUNT TEST NUMBERS 
2098 005324 113737 001122 001240 MOvVB STSTNM,STESTN 3;SET TEST NUMBER IN APT MAILBOX 
2094 005332 011637 001126 MOV (SP), $LPADR 3sSAVE SCOPE LOOP ADORESS 
2095 005336 013777 001122 173616 ‘SOVER: MOV $TSTNM,GDISPLAY ;;DISPLAY TEST NUMBER 
ote 005344 0135716 901126 MOV SLPADR , (SP) “—_— RETURN ADORESS 
s- -Seececeesessesassessssssssasssess 
2096 005350 105037 001417 3t CLRB MNTFLG sCLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST 
2099 005354 005737 001570 TST MODE sHAS THE MODE BEEN CHANGED? 
2100 005360 001005 BNE ai sIF NOT INTERNAL , GO OO A TEST 
2101 005362 112737 000010 001417 MOVB @MAINT , MNTFLG sIF INTERNAL MODE NOW, SET THE MAINTENANCE BIT 
21 005370 0900002 4s; RTI 3GO 00 THE TEST 
2103 005372 000406 BRW: 406 
2104 ts -- END O MACRO sesecececcesesssses 
= 005374 000005 SMXCNT: 5 33MAX. NUMBER OF ITERATIONS 
2107 — FOR FREEZE ON CURRENT DATA 
Bas anne soma ath meres 
2110 005376 032777 001000 173554 .SCOP1: BIT @SWO09 , BSWR sIS SWO9*1(SET)? 
2111 005404 001405 BEQ 1$ s6R IF NOT SET. 
2112 005406 005737 001362 TST LOCK ee THER A TIGHT LOOP SPECIFIED? 
2113 005412 001402 BEQ 18 NO, 
2114 005414 013716 001362 MOV LOCK, (SP) VIF Yes, GOTO THE ADDRESS IN LOCK. 
oi 005420 000002 1%: RTI 3GO BACK. 
2117 005422 032777 010000 173530 .TYPE: BIT @SW12 , 8SWR sINHIBIT ALL PRINTOUT?? 
2118 005430 001405 BEQ i$ sIF NOT, GO TYPE 
2119 005432 062716 000002 ADO @2,(SP) } SKIP OVER MESSAGE POINTER 
2120 005436 000002 RTI sRETURN TO WHERE PROCEDURE WAS INVOKED 
2121 005440 
ao SBTTL TYPE ROUTINE 
2124 88 SEROGERHBSSERLAPASSSSARSKSSSHESRORRSHHOKSHAVSTSESEHSSALEASESSSASSS 
2125 s@ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
2126 3@THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 
2127 s@NOTE1: @NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER 
2128 s@NOTE2: $F ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED 
aH s@NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
3% 
2131 SeCALL: 
2132 3#1) USING A TRAP INSTRUCTION 
2133 3% TYPE »MESADR +sMESADR IS FIRST ADORESS OF AN ASCIZ STRING 
21364 s@OR 
2135 s* TYPE 
2136 74 ME SADR 
3138 é 
2139 005440 105737 001177 $TYPE: TSTB ¢TPFLG 33I1S THERE A TERMINAL? 
2140 005444 100002 BPL 1$ 11BR IF YES 


CZDZA-HO 
CZD0ZAH.P11 


MACY11 SOAC10S2) 19-JUN- nM 


19-JUN-64 15:45 


005510 


000011 


001255 


HALT 
BR 
1%: MOV 
MOV 
CMPB 
BNE 
BITB 
BEQ 
MOV 
JSR 
618: . WORD 
62%: BITB 
BNE 
2s: Move 
BNE 
TST 
60%: MOV 
3%: ADO 
RTI 
4b: CHPB 
BEQ 
CMPB 
BNE 
TST 
TYPE 
$CRLF 
CLRB 
BR 
S$: JSR 
6%: CMPB 
BNE 
MOV 
7$%: OECB 
BLT 
JSR 
OECB 
BR 
sHORIZONTAL TAB 
8s: MOvVB 
9%: JSR 
BITS 
TST 
BR 
STYPEC: 
TSTB 
BPL 
MOV 
BIC 
CMPB 
BNE 
1018: 
TSTB 


J4 


16:22 PAGE 48 
ROUTINE 


PC, $TYPEC 
$FILLC.CSP)+ 


2s 

$NULL , -(SP> 
1(SP) 

6% 

PC, $TYPEC 
oe 


ssHALT HERE IF NO TERMINAL 

3 sLEAVE 

ssSAVE RO 

33GET ADORESS OF ASCIZ STRING 

s sRUNNING IN APT MODE 

33N0,GO CHECK FOR 7": oo 
MESSAGE 


88 TO AP 

33NO,GO CHECK FOR 

8 MESSAGE ADDRESS FOR APT 

88 TO APT 

3 sMESSAGE ADORESS 

ssAPT SSED 

3sYES,SKIP T 

88 BE TYPED ONTO STACK 
336R IF IT ISN'T THE TOR 

a8 TOR POP IT OFF THE STACK 
ssRESTORE RO 

$3 RETURN PC 


3 sRETURN 
3 sBRANCH IF <HT> 
3 sBRANCH IF NOT <CRLF> 


33sPOP <CR><LF> 7 
33 TYPE A CR AND LI 


ssCLEAR CHARACTER COUNT 
33GET NEXT CHARACTER 
33GO TYPE THIS CHARACTER 
13S IT TIME FOR FILLER CHARS.? 
ssIF NO GO GET NEXT CHAR. 
3sGET @ OF FILLER CHARS. NEEDED 


TO BE TYPED? 


33 TYPE A SPACE 
3sBRANCH IF NOT AT 


TOP 
33POP SPACE OFF STACK 
1 sGET NEXT CHARACTER 


33CHAR IN KYBO BUFFER? 
338R IF NOT 


33GET CHAR 

1 ySTRIP EXTRANEOUS BITS 
33sWAS CHAR XOFF 

178R IF NOT 

+s3WAIT FOR CHAR 


NO--GO POP THE NULL OFF OF STACK 


SEQ 46 


CZDZA-HO 
CZDZAH Pil 


MACY11 eos wee 
19- JUN-64 


100375 
hbk 


15:4 


173256 
177600 
000021 


000002 
000015 


000001 
000001 


19-JUN-64 
TYPE 


173222 
000002 


001255 


1028: 
108: 


1%: 


$CHARCNT: . WORD 
STYPEX: RTS 


16:22 PAGE 49 
ROUTINE 


ie] 
PC 


3sWAS IT XON? 
336R IF NOT 


ssFIX STACK 
ssWAIT UNTIL PRINTER IS READY 
33IS ge A RANDOM XON? 


+ 1BRANCH s 
33LOAD CHAR TO BE TYPED INTO DATA REG. 


33sIS CHARACTER A CARRIAGE RETURN? 


3 sEXIT 
331S CHARACTER A LINE FEED? 
3sBRANCH IF YES 


3sCOUNT THE CHARACTER 
s sCHARACTER COUNT STORAGE 


-SBTTL APT COMMUNICATIONS ROUTINE 


| IPSCSSOSESSEESSEESSSESESESEEEESEEESSSSEES SESE SESSEEESEEESEEESESESES 
A ERROR 


SATY1: » FFL 
SATYS: MOVB 01, $MFLG 
BR $ATYC 
SATY4: MOVB #1, 8FFLG 
$ATYC: 
RO, -(SP) 
R1,-C(SP) 
TST8 sMFLG 
BEQ S$ 
ChHPB @APTENV , SENV 
hy @APTSPOOL , SENVM 
MOV @4(SP),RO 
ADO @2,4(SP) 
1%: TST $MSGT 
ANE 1% 
MOV RO, $MSGAD 
2s: TSTB CRO)+ 
BNE 2s 
SuB $MSGAD ,RO 
ASR RO 
MOV RO, $MSGLGT 
9 04 , SMSGTYPE 
3%: MOV @4(SP),48 
ADO 2.4(SP) 
MOV 177776, -C SP) 
JSR .$T 
4%: . WORD 


3310 REPORT FATAL 
3370 TYPE A MESSAGE 


3370 ONLY REPORT FATAL ERROR 
33PUSH RO ON STACK 


33 TYPE A MESSAGE? 
s3IF NOT: GR 

88 ING UNDER APT? 
ssIF BR 

8 SPOOL MESSAGES? 
33sIF NOT: BR 

33GET MESSAGE ADOR. 


RETURN ADOR. 
33SEE IF DONE W/ LAST XMISSION? 
ssIF NOT: WAIT 


a8 ADOR IN 

33FIND END OF MESSAGE 

33SUB START OF MESSAGE 

33GET MESSAGE LNGTH IN WORDS 


33PUT LENGTH IN MAILBOX 
+3TELL APT TO TAKE MSG. 


33PUT MSG ADOR IN .ISR LINKAGE 
3:8UMP RETURN ADORESS 

s sPUSH 177776 ON STACK 

1:CALL TYPE. MACRO 


CZDZA-HO 
CZ0ZAH.P11 


ere 


POPEPEDERELESELLL LL PERPEEERERLELE GEOL LEST 


L4 


SEQ SO 


+sSHOULD REPORT FATAL ERROR? 
ssIF NOT: 


s3FATAL FLAG 


ADDRESS OF THE MESSAGE TO BE PRINTED 
ORT TO INSTRUCTION AFTER ADORESS POINTER 


PRINT THE 
iMESSAGE IS POINTED TO FROM HERE 
sPOINT R4 TO THE pao gy ~ 


sSET THE CHARACTERS ALLOWED 
’ A BEEN RECEIVED? 
sIF NO, KEEP WAITING FOR IT 
tIF YES, SAVE IT IN THE INPUT BUFFER 
KEEP ONLY THE 7-BIT ASCII INFORMATION 
sIS IT A XOFF? 3 ;0SH-BHL 
’ IF 3 30SH 
sWAIT FOR A CHARACTER : s0SH-BHL 
3 s0SH-BHL 
3GET TER 3 s0SH-BHL 
sSTRIP DOWN CHARACTER 3 30SH-BHL 
sWAIT FOR A XON? 3 30SH-BHL 
3GET NEXT CHAR IF NOT 3 s0SH-BHL 
3sPOP ST 3 30SH 
sWAIT FOR A CHAR 3 3:0SH 
sIS IT A RANDOM XON 3 30SH-BHL 
r IF : s0SH- 
sELSE, POP STACK 3 30SH-BHL 
3GO GET NEXT | 3 s0SH-BHL 
4 IT <CR> ? 


MACY11 3OA(10S2) 19- aa 16:22 PAGE 50 
19-JUN-64 15:45 T COMMUNICATIONS ROUTINE 
5$: 

105737 006250 108: TSTB sFFLG 
001416 BEQ 12% 
005737 001254 TST sENV 
001413 BEQ 12% ‘ 
005737 001234 118: TST sMSGTYPE 
001375 BNE 118 
017637 000004 001236 MOV @4(SP), SFATAL 
062766 000002 000004 ADO @2,4(SP) 
005237 001234 Inc SMSGTYPE 
105037 006250 128: CLRB sFFLG 
105037 006247 CLRB sLFLG 
105037 006246 CLRB ¢HFLG 
012601 MOV (SP)+¢,R1 
012600 MOV (SP)-+, 
000207 RTS PC 

000 sMFLG: .BYTE 0 

000 *LFLG: .BYTE O 

000 SFFLG: .BYTE 0 
006252 EVEN 
000200 APTSIZE=200 
000001 APTENV=001 
000100 APTSPOOL = 100 

APTCSUP=040 
sSTRING INPUT ROUTINE 
$ eeeececeneceaneaeneaeneneneneeeceneenee eee 

010346 INSTR: MOV RS, -C(SP) 
010446 MOV o7C 
017637 000004 006274 MOV @4(SP), .MSG 
062766 000002 000004 ADO @2,4(SP) 
104402 -INST1: TYPE 
000000 -MSG: O 
012704 011272 MOV @INBUF .R4 
012703 000007 MOV @7,R3 
105777 172652 1%: TSTB esTKS 
1003 BPL a 
117714 172646 MOVB OsTKB,(R4) 
142714 000200 Bice of 
122714 000023 CMPB @SXOFF ,CR4) 
001014 BNE 63% 
105777 172626 101%: ‘STB asTKs 
100375 BPL 01% 
117714 172622 MOvB Os TKB,(R4) 
142714 000200 Bice oC 
122714 000021 ChPB @$X0N,(R4) 
001366 BNE 101% 
105724 TSTB (R4)o 
000752 BR is 
122714 000021 83%: CMPB @$X0N,(R4) 
001002 BNE t 
105724 TSTB CR4)o 
000745 BR is 
1227, 000015 1028: CHPB @15,(R4)> 
001417 BEQ INSTR2 


. TERMINATE THE INPUT SEQUENCE 


ec ee ee ee ee en 
| M4 


es 
CZDZA-HO MACYLL SOA(1052) 19-WN-84 16:22, PAGE 51 SEQ 51 
CZDZAN.P11 19-JUN-64 15:45 T COMMUNICATIONS ROUTINE 
006402 105777 172562 2s: TSTB 4 BS TPS :IF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT 
2310 006406 100375 BPL 28 sIF WE CAN'T, WAIT UNTIL WE CAN 
5311 006410 017777 172552 172554 MOV «BSTKB,@¢TPB =», ECHO. THE CHARACTER BACK 
5312 006416 005303 DEC ORS }REDUCE THE NUMBER OF CHARACTERS RECEIVED 
531§ 006420 001332 ee Oi«d“S tIF ME DON’T WAVE 7, GO GET SOME 
5314 006422 012604 MOVs (SP)+, RA IIF ME MAVE 7, RESTORE R4 
5315 006424 012603 MOVs (SP)+. RS SRESTORE R3 
5316 006426 010346 LINSTE: MOV, -(SP) ISAVE RS ON THE STACK 
5317 006430 010446 MOV sR -CSP) ISAVE R& ON THE STACK 
2318 006432 108402 001230 TYPE  , SQUES IPRINT A QUESTION MARK... WHAT'S GOING ON? 
5319 006436 00071 BR * INST ;G0 PRINT THE MESSAGE AGAIN 
5320 006440 012604 INSTR2: MOV «(SP )+. RA IRESTORE R4 
5321 006442 012603 MOVs (SP)+ RS IRESTORE R3 
2822 o0sses 000002 RTI IRETURN TO THE MAIN PROCEDURE 
2324 CONVERT ASCEI STRING TO OCTAL 
oice fe ee ae 
5327 005446 010546 PARAM: MOV RS, -( SP) ;SAVE RS ON THE STACK 
2328 006450 010446 MOV °C SSAVE Ra ON THE STACK 
5329 006452 016605 000004 MOV s«@( SP). RS IGET THE SETUP INFORMATION POINTER 
006456 012537 006636 mov so (RS)e,LOLIM —s-_s SET._ THE_LOW LIMIT FOR THE INPUT 
2331 012537 006640 MOVs CRS), ISET THE HIGM LIMIT FOR THE INPUT 
2332 006466 012537 006642 MOV «(RSs DEVAOR «| SAVE TME ADORESS WERE THE RESULT WILL BE STORED 
5333 006472 112537 006644 MOVE  (RS)+.LOBITS | ;GET THE MASK OF THE INCORRECT BITS 
2334 006476 112537 006645 MOVE «(RS)*_ADRCNT ©, GET THE COUNT OF ITEMS TO GE STORED 
2335 006502 010566 000004 MOV sR, 4 SP) SPOINT TO WHERE MAIN LIME PROGRAM WILL RESUME 
2336 006506 005005 PARAM: CLR RS SINITIALIZE THE ASCII TO OCTAL RESULT 
2337 006510 012708 011272 MOV s«@INBUF.R4 ;POINT TO THE INPUT GUFFER 
2338 006514 122714 CPB 015. (RA) TIS THIS CHARACTER A CARRIAGE RETURN? 
2339 006520 001420 6EQ TIF SO, PRINT THE MESSAGE AGAIN 
2340 006522 121427 000060 18: CHB (RS), 060 IIS THES CHARACTER BELOW THE NUMERIC RANGE? 
2341 006526 002415 BLT tIF SO, GO PRINT THE MESSAGE AGAIN 
006530 121427 000067 CHPB (R44), 067 TIS THES CHARACTER ABOVE THE NUMERIC RANGE? 
2343 006534 BGT tIF SO, GO PRINT THE MESSAGE AGAIN 
2344 006536 142714 000060 BICB 060, (RS) ISOLATE THE NUMBER THE CHARACTER REPRESENTS 
2345 006542 BIS8 0 (R4)+, RS TENATE THESE BITS TO THE ALREADY EXISTING STRING 
006544 122714 000015 CHB «415, (4) ‘TS THE NEXT CHARACTER A TURN? 
2347 006550 001406 8a ss LIMITS LIF $0, GO SEE IF MBER IS UITHIN 
2348 006552 ASL ORS SCLEAR BIT POSITION 0, MOVE EXISTING SERING TO LEFT 
2349 006554 006305 ASL ORS CLEAR POSITION 1, MOVE STRING TO LEFT 
2330 006536 006305 ASL ORS SMOVE THE STRING OME MORE TIME TO MAKE ROOM FOR 
sNEXT 
2352 006560 000760 1s iGO GET THE NEXT CHARACTER 
2353 006562 104404 PARERR: INSTER I THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 
2354 006564 000750 BR PARAM TTRY GETTING THE PARAMETERS AGAIN 
2356 ,TEST TO SEE IF NUMBER IS WITHIN LIMITS 
i eee ee ee eee eee eee ee eee e en eee eee eneeeneeeee 
2358 
2359 006566 020537 006640 LIMITS: CHP sR MILIM ,DOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
2360 006572 101373 SHI  ——~PARERR VIF YES. GO PRINT THE MESSAGE AGAIN 
2361 006574 006636 RS. LOLIM s1S T LOMER THAN ALLOWED? 
103770 TIF YES. GO PRINT THE MESSAGE AGA 
2363 006602 133705 006644 BITS  LOBITS,RS : INCORRECT BITS SET IN THE RESULT? 
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T COMMUNICATIONS ROUTINE 


N4 


sSTORE NUMBER AT SPECIFIED ADORESS 


233RRE22 


eat 
< 
a 


ADRCNT: .6YTE 
sSAVE PC OF TEST THAT FAILED AND RO-RS 


T 
sRESTORE RO-RS 


sPOINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
sSTORE THE RESULT 
sCALCULATE THE NEXT DATUM 
sREDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 
LIF NOT, bo STORE THE NEXT DATUM 
STORE R4 
sRESTORE RS 
sRETURN TO THE MAIN PROGRAM 


sLOWEST ACCEPTABLE VALUE 
‘HIGHEST ACCEPTABLE 
*LOCATION WHERE RESULT WILL BE STORED 


s INCORRECT BITS MASK 
sCOUNT OF ITEMS TO BE STORED 





SEQ 53 
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CZDZAM.P11 19-JUN-64 15:45 APT COMMUNICATIONS ROUTINE 
2421 006776 Ove (R1)+,RO sGET THE NUMBER OF SPACES TO PRINT 
2422 007000 013104 MOV OCR1 D+ RA sCOPY THE WORD TO BE CONVERTED 
2423 007002 110537 007116 MOVB : sCOPY THE CHARACTER COUNT 
2424 007006 010405 38: MOV R4,RS sCOPY THE ARGUMENT WORD AGAIN 
2425 007010 042703 177770 BIC OtC<7>,R3 sISOLATE THREE BITS TO BE TREATED AS A CHARACTER 
007014 062703 000060 ADO oR sMAKE AN ASCII CHARACTER OUT OF THEM 
2427 007020 110346 MOVE RS, -(SP) sSAVE THAT CHARACTER 
007022 ROR R4 sMOVE THE NEXT THREE BITS INTO PLACE 
2429 007024 006204 ASR R4 sMOVE THEM AGAIN 
007026 ASR Ea sO FINALLY A THIRD TIME 
ee 007030 005305 OEC RS —s CHARACTER COUNT.ARE ALL CHARACTERS 
sOUIL 
2433 007032 901565 BNE 38 sIF NO, GO GUILD THE NEXT OME. 
2434 007034 012703 011576 ad @PDATA,RS sNOW POINT TO WHERE NUMBER WILL BE PRINTED FROM 
2435 007040 112625 4; MOVB (SP )+, CRS) sSTORE THE CHARACTER, STARTING WITH THE MOST 
36 007042 1053537 007116 ECS CHRCNT sREDUCE COUNT. ARE ALL CHARAC ANSF ERRED ? 
2437 007046 001574 BNE 4s sIF NO, GO TRANSFER ANOTHER 
2438 007050 TST8 RO sARE ANY SPACES TO BE PRINTED? 
2439 007052 001404 BEQ 6s sIF NO, DON'T SET UP ANY 
2440 007054 1127235 000040 S$: MOvB €040,(R3)- sADD A SPACE TO THE OUTPUT BUFFER 
2441 007060 O€CB RO sREDUCE THE COUNT. SHOULD ME PRINT MORE? 
007062 001574 ONE St sIF YES, ADD ANOTHER SPACE 
2443 007064 105015 68: CLRB CR3) s TERMINATE THE OUTPUT BUFFER WITH A ZERO 
2444 007066 104402 011576 TYPE eMDATA sPRINT THE STRING ME JUST BUILT 
2445 007072 005337 007114 OEC sREDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 
2446 007076 001536 ONE 16 sIF YES, CONVERT THEM 
2447 007100 MOV (SP). RS sRESTORE RS 
007102 012604 MOV (SP )+,R4 sRESTORE R4 
2449 007104 012605 MOV (SP )+ RS sRESTORE RS 
2430 007106 012601 ad (SP)+,R1 sRESTORE R1 
24351 007110 012600 MOV (SP )+,RO sRESTORE RO 
007112 RTI sRETURN TO THE MAIN PROGRAM 
2453 007114 000000 WROCNT: 0 
2434 007116 000 CHRCNT: .BYTE sNUMBER OF CHARACTERS TO PRINT 
oo 007117 000 SPACNT: .BYTE 0 sNUMBER OF SPACES TO PRINT 
2457 007120 000000 BIMRD: O 
2456 
2459 
2460 sTRAP DISPATCH SERVICE 
2461 sARGUENT OF TRAP IS EXTRACTED 
2462 s@ USED AS OFFSET TO OBTAIN POINTER 
oer sTO SELECTED SUBROUTINE 
2465 007122 010046 . TRPSR: MOV RO, -( SP) sSAVE RO. USE RO TO FIND TRAP ROUTINE 
2466 007124 016600 000002 MoV 2( SP), RO sGET TRAP ADORESS 
2467 007130 005740 TST -(RO) 3 TRAP 
2468 007132 111000 MOvB (RO), RO sGET RIGHT BYTE OF TRAPC( TRAP OFFSET) 
2469 007134 006300 ASL RO sPOSITION OFFSET FOR TABLE INDEXING 
2470 007136 016000 002002 MOV . TRPTABC(RO),RO ;PLACE INDEXED ADDRESS OF TABLE IN RO 
ors 007142 000200 RTS RO s TRANSFER TO THAT ADORESS AND RESTORE OLD RO 
2473 sDEVICE CLEAR ROUTINE 


2474 sISSUE A DEVICE CLEAR 
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| 2477 007144 052777 
| 29878 007152 032777 
2479 007160 001374 
000002 


2500 007216 015716 
2501 007222 005037 


001417 


007214 


001360 
001362 


172670 
172662 


172646 


171716 


171712 
171672 





ind 
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SEQ 54 


ers €DCLR,GDZCSR SET OCLR 
1s: eIT @OCLR;GDZCSR DID IT CLEAR? 
BNE 18 s0R IF NO 
ATI ;EXIT ROUTINE 
}ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 
g _eeeee eee eee eee eee HEE EEE EEE EEE EEE RHEE HERERO ee 
OCLASM: DEVICE .CLR sISSUE A DEVICE CLEAR 
BISB8. MNTFLG,DZCSR LOAD THE MAINTENANCE BIT IF IT IS I MODE 
ATI }RETURN TO CALLING ROUTINE 
.OELAY: 
MOV RO, -( SP) 1SAVE RO 
OL YCNT , RO sSET COUNT 
18: OEC sOELAY 
| 
MOV (SP)+,RO RESTORE RO 
RTI LEAVE ROUTINE 
OLYCNT: . WORD 1 }PATCHABLE LOC FOR MORE TIME 
;ADVANCE TO EXT TEST HANDLER 
a woeeeenececeeeeeen ee ee eee eee ee eee 
ADVANCE :MOV ss NEXT, (SP) ;CRUNCH STACK WITH ADORESS OF SCOPE CALL 
CLA L RESET TIGHT LOOP ADORESS 
RTI :CHECK TO SEE IF OLD TEST GETS REPEATED 
}ERROR HANDLER 
t eee eceeceneaeceaneee 
SERROR; JSR PC, SERV.G }FIND OUT IF <?*G> WAS HIT 
BIT 12, 8SuR 18ELL ON ERROR? 
GEO er IF NO 
TSTe 4 0- @S TPS. TTY READY 
8PL XBX ;00N'T WAIT IF TTY NOT READY 
MOVE 0207, 88 TPB ;PUSM A BELL AT THE TTY 
xBX: BIT @SW13,8SUR ;0ELETE ERROR PRINT OUT? 
HALTS :0R IF NO PRINT OUT WANTED 
CHP (SP), SERRPC }WAS THIS ERROR FOUND LAST TIME? 
6fa :;0R IF VES 
nov (SP), SERRPC sRECORD BEING HERE 
CLAS G }PREPARE HEADER 
18: SAVOS ;SAVE ALL PROC REGISTERS 
MOV (SP),RS 1GET THE PC OF ERROR 
SuB 62.R5 1GET ADORESS OF TRAP CALL 
Mov (RS), R4 1GET ERROR INSTRUCTION 
MOVE «RA, SI TEMS ;COPY TEST NUMBER FOR APT HANDLING 
ASL R4 }PULT BY TWO 
ADO (RS),R4 ' € IT 
ASL Ra ;MULT AGAIN 
BIC €177001,R4 :CLEAR JUNK 
ADO @.ERRTAS RA 1GET POINTER 
HOV (R4)+ ERRMSG T ERROR 
HOV (R4)+.DATAHD GET DATA HEADRER 
MOY (R4), DAT GET DATA TABLE 
TSTB —- SERFLG TYPE HE 
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001 BEO 
005737 007512 TST OATABP 
001044 Qe TYPDAT 
104402 001231 TYPMSG: TYPE , CRLF 
104402 001231 TYPE . SCRLF 
005737 001362 TST LOCK 
001402 are is 
104402 010766 TYPE »MAS 
104402 010754 18: TYPE oMTSTN 
104412 7644 CHVRT 3s C KTSTN 
1 011063 TYPE ’ 
104412 7636 CyVRT §6,ERTABO 
104402 010716 TYPE 4 x 
104412 72 CHVRT Og 
1 001231 TYPE ° 
112737 177777 001123 MOvB @-1, SERFLG 
005737 007466 TST 
001402 8f9 wTBS.FM 
104402 TYPE 
000000 ERRMSG: O 
WTBS .FM: 
005737 007500 TST CAT AMD 
001402 6E0 TYPDAT 
104402 TYPE 
000000 DATHO: O 
005737 007512 TYPDAT: TST OATABP 
001402 659 RESREG 
104411 CONVRT 
DATABP: O 
104410 RESREG: RESOS 
122737 000001 001254 HALTS: COPB OAP TENV , SENV 
001007 Boe 2s 
113737 001134 007540 hOvB sITEMS, 7% 
004737 JSR PC, SATY4 
000000 76: -WORD O 
000777 6s: SR as 
022737 005056 000042 2%: CMP @SENDAD , 8642 
001403 BEQ 1s 
005777 171400 TST 
1 BPL EXITER 
016677 000002 171372 i: Mov 2( SP), DISPLAY 
000000 HALT 
005237 001132 EXITER: INC sERTTL 
032777 171354 BIT ° 
001007 BNE 1% 
032777 002000 171344 BIT @SW10, SUR 
001407 BEQ 26 
013737 001360 001126 MOV NEXT, SLPADR 
012 001120 16: MOV @STACK , SP 
000177 171272 JP SELF ADR 
000002 2s: RTI 
000001 ERTABO: 1 
006 002 BYTE 6.2 
001402 SA 
1 XTSTN: 1 
002 002 8 2.2 


sOR IF YES 

s00ES DATA TABLE EXIST? 
s0R IF YES. 

sTYPE A CARRIAGE RETURN 
sAND TYPE ANOTHER 


~- A CR/LF 
MORE HEADER ss NO — TABLE. 


sLOCK UP HERE 
sCHECK TO SEE IF IN ACT-11 MODE 
ACCORDINGLY 


s6R IF NO HALT ON ERROR 

SHOW ERROR PC IN DATA DISPLAY 
8 

s UPDATE 


ERROR COUNT 
sGOTO TOP OF TEST? 
30R IF YES 
sGOTO NEXT TEST? 
1BR wo 
3SET FOR NEXT TEST 
sRESET 
sGOTO SPECIFIED TEST 
+ RETURN 


SEQ 55 
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SEQ 56 
CZDZA-HO0 MACY11 SOAC(105S2) 19- SS 16:22 PAGE 56 
CZDZAH.P11 19-JUN-64 15:45 T COMMUNICATIONS ROUTINE 
2589 007650 001122 sTSTNM 
2590 007652 022737 177570 001160 SERV.G: Cre @177570,SUR sIS THE SWITCH — HARDWIRED? 
2591 007660 001002 ONE 998 sIF SO, IGNORE * 
2592 007662 000137 010270 cP 6S + )0SH-BHL 
2593 007666 017746 171274 99%: MOV OsTKB, -(SP) sOTHERWISE, GET THE LAST CHARACTER TYPED 
2594 007672 042716 177600 BIC @177600,(SP) § sSTRIP CHAR + 10SH- 
007676 122716 000023 céMPS Ca P sIS IT A XOFF + s0SH-BHL 
007702 001012 ONE 102% 16R IF NO 1 30SH-B+ 
235 
007704 105777 171254 1018: TSsTB Ss sWAIT FOR A CHAR + s0SH-BHL 
2599 007710 100375 BPL 101% 3 30SH-BHL 
oo7712 117716 171250 MOvB OsTxe (SP) sGET THE CHAR 3 s0SH-BHL 
2601 007716 042716 177600 Ic €177600,(SP)  :STRIP CHAR + ;0SH-BHL 
2602 007722 122716 000021 CPs @6XON, (SP) sIS IT A XON 3 s0SH-BHL 
2603 007726 001366 SE 1016 s8R IF NO 3 s0SH-6HL 
2605 007730 122716 000021 1023: CHPB @$XON, (SP) sIS IT RANDOM XON ? 3 30SH 
2606 007734 001002 BNE 78 s6R IF NOT 3 s0SH 
2607 007736 005726 TST (SP )> sPOP STACK 83 
2606 007740 Ra Ga s IGNORE XON 3 s0SH 
2610 007742 122726 000007 78: Crepe @7,.CSP)> 3IS IY tG? 
2611 007746 001150 Beste sIF NOT, IGNORE INPUT 
2612 007750 032777 0084000 171206 BIT #4000 , 8S TKS sRX BUSY? 
2613 007756 001335 rg SERV .G sR IF YES 
2614 007760 017737 171174 010312 MOV GSR , 90% sSAVE (SUR). 
2615 007766 013777 O10312 171164 18: MOV 90% , GSR $ 
2616 007774 104402 010272 TYPE 898 3 
2617 010000 104412 —, 88s 3 
26186 010004 104402 010314 YPE 918 ry 
2619 010010 105777 171150 98: TST6 OsTKS sWAIT FOR DONE. 
2620 010014 100375 BPL 4 
2621 010016 017746 171144 MOV $ .-(SP) 3 
010022 042716 177600 BIC #177600,(SP) sSTRIP CHAR 3 ;30SH-BHL 
2623 0190026 122716 000023 ChMPB @sXOFF CSP) sIS IT A XOFF 3 ;30SH-BHL 
2624 010032 001012 BNE 1128 36R IF NO 3 s30SH-BHL 
2626 010034 105777 171124 1118: TSTB esTKS sWAIT FOR A CHAR 3: ;30SH-BHL 
2627 010040 BPL 111% 3 s30SH-BHL 
2626 010042 117716 171120 MOVE @tTKB,(SP) 3GET THE CHAR 3 30SH-BHL 
2629 010046 042716 177600 BIC #177600, (SP) sSTRIP CHAR 3 s0SH-BHL 
2630 010052 122716 000021 CMPB @¢XON, (SP) 3IS IT A XON 3 30SH-BHL 
ose 010056 001366 BRE 111% 3s6R IF NO : 30SH-BHL 
2633 010060 122716 000021 1128: CMPB @¢X0N, (SP) sIS IT RANDOM XON ? :30SH 
2634 010064 001002 BNE s6R IF NOT 3 :0SH 
2635 010066 005726 TST (SP )« sPOP STACK 3 30SH 
ots 010070 000747 BR § s IGNORE XON CHAR 33:0SH 
2638 010072 122726 000015 6s: CMPB #15,(SP)-+ ’ 
2639 010076 001472 BEQ 53 3 
2640 010100 005077 171054 CLR SSWR 3 
2641 010104 105777 171060 2s: TSTB OsTPS ’ 
2642 010110 100375 BPL .- 
2643 010112 016677 177776 171052 MOV -2(SP),8¢TPB 3 
2644 00024 cic 








a FS 


SEQ 57 
CZNZA-HO MACY11 3OAC105S2) 19-JUN- at 16:22 PAGE 57 
CZO0ZAH.P11 19-JUN-64 15:45 T COMMUNICATIONS ROUTINE 

26465 010122 006177 171032 ROL SUR : 

010126 006177 171026 ROL @SWR i 
2647 010132 006177 171022 ROL @SWR 5 

010136 103713 ecs 1% sERROR 
2649 010140 7 177776 000060 CMP -2( SP), 60 H 

010146 002707 BLT i$ 1 
2651 010150 026627 177776 000067 CMP -2( SP), 067 ’ 
2652 010156 00335035 BGT is } 
2653 010160 042766 177770 177776 BIC @tC<7>, -2¢SP) ’ 
2654 010166 056677 177776 170764 BIS -2(SP), @SUR $ 
2655 010174 105777 170764 126: TSTB esTKS ; 
2656 010200 100375 BPL 4 5 
2657 010202 017746 170760 MOV OsTKB, -( SP) 
2658 010206 042716 177600 BIC #177600,(SP) sSTRIP CHAR 3 s0SH-BHL 
2659 010212 122716 0000235 CHPB @SXOFF CSP) 3IS IT A XOFF 3 s0SH-BHL 
ory 010216 001012 BNE 122% s6R IF NO 3 s0SH-BHL 
2662 010220 105777 170740 1218: TSTB8 OsTKS sWAIT FOR A CHAR 3 30SH-BHL 
2663 010224 100375 BPL 121% 3 s0SH-3HL 
2664 010226 117716 170734 MOVE @sTKB, (SP) sGET THE CHAR s s0SH-BHL 
2665 010232 042716 177600 BIC #177600, (SP) sSTRIP CHAR 3 s0SH-BHL 
2666 010236 122716 000021 CHPE @$X0N, (SP) 3IS IT A XON 3 s0SH-BHL 
2667 010242 001366 BNE 121% s6R IF NO 3 s30SH-BHL 
2669 010244 122716 000021 1228: CMPB @$X0ON, (SP) 3IS IT RANDOM XON ? 3 30SH 
2670 010250 001002 10% 36h IF NOT 83 
2671 010252 005726 TST (SP )« sPOP STACK 330SH 
at | 010254 000747 12 s IGNORE XON 3 s0SH 
2674 010256 122726 000015 108: CMPB 015,(SP)- 
2675 010262 001310 BNE 2s 3 
2676 010264 104402 001231 S$: TYPE » SCRLF F 
ahs 010270 000207 6$: RTS PC 
2679 010272 020200 051450 051127 89%: -ASCIZ <200>? (SWR)*/? 
2680 010300 03645i 000057 
2681 EVEN 
2682 010304 000001 68s: 1 
2683 010306 006 000 BYTE 6,0 
2684 010310 010312 $ 
2685 010312 000000 90%: -WORD O 
2686 010314 036457 000057 91%; -ASCIZ ?/2/? 
2687 EVEN 
—— -SBTTL POWER DOWN AND UP ROUTINES 
2690 § J SSSSSSSSSSSSOSESEESSEEEEEESSEESEOSSSESEEEEDESESSEESESEEOEEESEES 
2691 3 ROUT 
2692 010320 012737 010464 000024 %$PWRDON: MOV @CILLUP ,BOPWURVEC ;;SET FOR FAST UP 
2693 010326 012737 000340 000026 MOV 0340 ,GOPURVEC+2 ;;PRIO:7 
2694 010334 010046 MOV RO, -(SP) 3 3PUSH ON STACK 
2695 010336 010146 MOV R1,-C(SP) 3sPUSH R1 ON STACK 
2696 010340 010246 MOV R2,-C(SP) 33PUSH R2 ON STACK 
2697 010342 010346 MOV R3,-C(SP) 3sPUSH RS ON STACK 
2696 010344 010446 MOV R4,-CSP) 3sPUSH R4 ON STACK 
2699 010346 01 MOV RS, -C(SP) 33PUSH RS ON STACK 
2700 010350 017746 170604 MOV GSU, -( SP) 33PUSH @SWR ON STACK 





ee 


CZDZA-HO MACY11 SOA(1052) 19-JUN-64 16:22 PAGE 56 
CZOZAH.P11 19-JUN-64 15:45 POWER DOWN AND UP ROUTINES 
2701 010354 010637 010470 MOV SP , SSAVR6 ssSAVE SP 
2702 010360 012737 010372 000024 MOV @sPURUP , BEPURVEC 13SET UP VECTOR 
2703 010366 000000 HALT 
ban 010370 000776 BR --2 ssHANG UP 
oaes 3 § SHHHSHASSSSSSS SHS HOSSHSSSOHOSSHHAHASHSSHOHSSSSEHASESSSSHSEEEESES 
2707 sPOWER 
2708 010372 012737 O01 000024 $PWRUP: MOV OCILLUP,G@OPWRVEC ,;SET FOR FAST DOWN 
2709 Ol 013706 010470 MOV SSAVRG, SP 13GET SP 
2710 Ol 005037 010470 CLR 6SAVRE ssWAIT LOOP FOR THE TTY 
2711 010410 005237 010470 18: INC ¢SAVRE ssWAIT FOR THE INC 
2712 010414 0013575 BNE 1% 330F WORD 
2713 010416 012677 170536 MOV (SP)+, @SUR 3sPOP STACK INTO SSUR 
2714 010422 012605 Mov (SP), 3sPOP STACK INTO RS 
2715 010424 012604 MOV (SP )+,R4 3sPOP STACK INTO 
2716 010426 012605 MOV (SP)¢,R3 8 STACK INTO RS 
2717 010430 012602 MOV (SP)+,R2 a8 ST INTO 
2718 010432 012601 MOV (SP)+,R1 88 STACK INTO R1 
2719 010434 012600 MoV CSP)+,RO 33sPO0P STACK INTO RO 
2720 010436 012737 010320 000024 MOV @SPURON,GOPWURVEC .;SET UP THE POWER DOWN VECTOR 
2721 010644 012737 000340 000026 mov 0340, DOPURVEC 2 33PRIO:7 
2722 010452 1 TYPE ssREPORT THE POWER FAILURE 
2723 010454 01046 $PURMG: .WORD MPFAIL ssPOWER FAIL MESSAGE POINTER 
2724 010456 012716 MOV (PC )+, CSP) 8 1 RESTART AT RESTART 
2725 010460 012106 SPWRAD: .WORD RESTART ssweSTART ADDRESS 
2726 010462 TI 
2727 010464 ¢ILLUP: HALT sa THE ag UP SEQUENCE WAS STARTED 
726 010466 000776 BR --2 a8 ORE THE POWER DOWN WAS COMPLETE 
2729 010470 000000 SSAVR6: O 33PUT THE SP HERE 
2730 010472 050200 051127 043040 MPFAIL: .ASCIZ <200>/PUR FAILED. "RESTART AT LAST TEST / 
(2) 010535 200 047105 020104 MEPASS: .ASCIZ <200>/END PASS es / 
(2) 010560 051200 047125 044516 PR: -ASCIZ <200>/RUNNING 
(2) 010574 050200 7522 051107 MERR2: .ASCIZ <200>/PROGRAN DOICATES Ay DEVICES PRESENT ./ 
(2) 010645 200 0467111 3 MERRS: .ASCIZ <200>/INSUFFICIENT DATA 
(2) 010667 200 047514 045503 MLOCK: .ASCIZ <200>/LOCK ON SELECTED testy 
(2) 010716 051503 035 MCSRX: .ASCIZ /CSR: / 
(2) 010724 042526 0355105 MVECX: .ASCIZ /VEC: / 
(2) 010732 040520 051523 051505 MPASSX: .ASCIZ /PASSES: / 
(2) 010743 105 051122 051117 : .ASCIZ /ERRORS: / 
(2) 010754 042524 0521235 7040 WMTSTN: .ASCIZ /TEST NO: / 
(2) 010766 020052 000 MASTEK: .ASCIZ /e@ / 
(2) 010771 200 042523 020124 MNEW: -ASCIZ <200>/SET SWITCH REG TO 0211'S DESIRED ACTIVE./ 
(2) 011045 120 035103 MERRPC: .ASCIZ /PC: / 
(2) 011050 046600 050101 047440 XHEAD: .ASCIZ <200>/HMAP OF 0Z11 pg te oo 
(2) 011075 200 046111 042514 MBADLN: .ASCIZ <200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 
(2) 011140 EVEN 
(2) 011140 000002 XSTATQ@: 2 
2731 011142 006 003 BYTE 6,3 
2732 011144 001220 $TMP1 
2733 011146 006 002 -BYTE 6,2 
2734 011150 001222 sTMP2 
2735 EVEN 
2736 SSETFLG- cecessasesssesesesesssesssssess 
hd Ape ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 
2739 JE *EXTERNAL LOOP BACK 


CZDZA-HO 
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011272 


011272 


011272 


001417 
011272 


H5 


AND UP ROUTINES 


MACY11 SOAC105S2) 19-JUN-64 16:22 PAGE 59 
POWER, DOWN 


sIe INTERNAL LOOP BACK 
sS*STAGGERED LOOP BACK 
. SETFLG: MOV a SP),RS sPICK UP ADORESS OF TAG 
BIc 040, INBUF sSTRIP LOWER CASE 
cChPB oe, INGUF sIS IT EXTERNAL LOOP BACK ? 
BNE 4s sNO 
mov 18,CRS) sYES STORE INFO 
CLRB MNTFLG sSET MAINT BIT ©0 
BF 7$ 3GET OuT 
4: CePB oI, INBUF sIS IT INTERNAL LOOP BACK ? 
BNE S$ sNO 
MOV 2¢,C(RS) sYES STORE INFO 
~ tos wen = UP THE MAINTENANCE FLAG LOADER 
8 
S$: Crea @'S, INBUF sIS IT STAGGERED LOOP BACK ? 
BNE 63 sWHAT ? 
MOV 3¢,(RS) sYES STORE INFO 
CLRB MNTFLG sZERO BITS 
78: are @2,(SP) sPOP 
68: INSTER sRETRY 
BR . SETFLG s0ITTO 
18: -WORD 200 sEXTERNAL = 
2s: . WORD 8 bd 
38: WORD sSTAGGERED = S 


18: 


2s: 


; 100000 
s -- END O MACRO cescecesecasceseces 


SEQ 59 


3 -$BUFFER-cccesccessssessessssesssessaseses 


sBUFFERS FOR INPUT-OUTPUT 


oo 8 


esguter.<8 
o 
sRESERVED INSTRUCTION NOT “MTPS” 


“ 


(SP), 38 
83+ ,3% 
@2,(SP) 

83% ,2¢SP) 


SBSSER 32353858 


=~ 
Lal 





oon 
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011772 
011774 
011776 

12000 


0 
012002 
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001226 
001404 


001412 
001412 


001412 


001412 
001412 


001412 
001414 


167174 


I5 


16:22 PAGE 60 
DOWN AND 


UP ROUTINES 


: -- END O MACRO ceeececccecesessaes 


CYCLE: 


18: 


2s: 


7%: 


3 -8CYCLE-ceececcnccssessssssessssssssss 


; 
sROUTINE USED TO “CYCLE” THROUGH UP TO SIXTEEN 0211'S 
ADORESS 


sTHIS ROUTINE SETS UP THE CONTROL 
THE SPECIFIED 0211'S. 


1 AND RUNS 
sB8E RUN 4 BEF ORE 


TST OZACTV 

BNE 1% 

TYPE e 

HALT 

68 . -2 

MOV SMXCNT , STIMES 
BIT RUN, OZAC 

BNE 2s 

cic 

ROL RUN 

ADC RUN 

ADO 014 , ACTIVE 

CMP @0Z .END , ACTIVE 
BNE 1% 

MOV @0Z . MAP , ACTIVE 
BR 1s 

CLC 

ROL FLIN 

ADC RUN 

MOV ACTIVE ,RO 

BOD 014, ACTIVE 

CmP #02 .END , ACTIVE 
BNE 

MOV @0Z .MAP , ACTIVE 
MOV (RO)+, SBASE 
MOV CRO)+ ,OZRIV 
MOV o,OZPRT 
MOVB OZPRT +1 ,.EIAFLG 
BIC @6IT15.0ZPRT 
MOV (RO)+ LINE 

MOV CRO)+, PAR 

MOV CRO)>, 

JSR PC, 

TST 

BNE 4s 

BIT @SW01 , BSUR 

BEQ ay 

TYPE . SCRLF 

INSTR 

MTSTN 

PARAM 

1 

1000 


FOR THE DIAGNOSTIC 
THIS ROUTINE eMUSTe 
ING THE DIAGNOSTIC FOR THE 


sARE ANY 0211'S TG BE TESTED? 


8 Ox. 
sNO 0211'S SELECTED!! 
3STOP THE SHOW. 

sDISQUALIFY CONT. SW. 

1RESTORE THE NUMBER OF ITERATIONS TO MAKE 
sIS THIS ONE “ACTIVE 

36R IF GOOD ONE FOUND 


SS POINTER. 
sHAVE WE PASSED THE END OF THE MAP? 
sIF NO, KEEP GOING; NOT ALL TESTED FOR. 
RESET ADORE 


4 SS POINTER. 
sKEEP LOOKING FOR ACTIVE 0Z11 


sSET UP PARAMETERIZATION 


WE UNDER MONITOR CONTROL? 
iF YES, SKIP THIS SETUP 
sIF SWOle1, GET STARTING TEST @ 
s6R IF NO TEST IS TO BE INPUTTED 


3 -OGETPAR-coccccceccccccccssssssssssssessss 
INPUT ROUTINE 
sPOINTER TO MESSAGE TO BE PRINTED 


CONVERT ROUTINE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sMIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 


ee are ee ~ rer err a 


SEQ 

CZDZA-HO MACY11 SOA(105S2) 19-JUN-64 16:22 PAGE 61 ™ 
CZD0ZAH.Pi1 19-JUN-64 15:45 POWER DOWN AND UP ROUTINES 

2650 012004 001122 ¢TSTNM sPOINTER TO MAP LOCATION TO BE FILLED 

2651 012006 000 BYTE O sMASK OF INVALID BITS FOR THIS PARAMETER 

2652 012007 001 -OYTE 1 sNUMBER OF PARAMETERS TO STORE 

2853 3 -- END O MACRO eeeccecesecssesssss 

2654 012010 012700 013046 MOV @TST1,RO 

2855 012014 022710 000004 S$: Chop 04, (RO) 

2656 012020 001020 BNE 68 

2657 012022 022760 012737 000002 Cop #12737 ,2CRO) 

2658 012030 001014 BNE 6% 

2659 012032 023760 001122 000004 CoP STSTNM,4(RO) sIS THIS THE TEST ? 

2660 012040 001010 BNE 6s sIF NOT, DON’T PROCESS NUMBER 

2661 012042 010037 001126 MOV RO, $LPADR sSAVE PC 

28662 012046 062737 000002 001126 ADO 2, $LPADR sPOP OVER SCOPE 

28663 012054 104402 001231 TYPE . SCRLF 

2064 012060 000412 BR 6s 

2665 012062 005720 6%: TST CRO)+ 

2666 012064 0620027 023740 CmP RO, @TLAST+10 

2067 012070 001351 BNE S$ 

28668 012072 104402 001250 TYPE . QUES 

2669 012076 000733 BR 7$ 

oy pose 012737 015046 001126 r+ 8 MOV @TST1, SLPADR sPREPARE TEST ADDRESS 

pode 012106 000177 167014 RESTART : IMP @SLPADR 3GO START TESTING. eeeWARNING ! esee 

2874 


sTHIS JUMP IS USED BY POWER UP ROUTINE! !!! 
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2675 
2676 
2677 
2678 
2679 


PERE ALLER CREE LER EE LEER RER SEER EL LiL bd. 


3 
$ 
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177770 


177777 
001256 


177772 
177776 


001160 


16:22 PAGE 62 
DOWN AND UP ROUTINES 
3 
3 IF BIT7 IN THE ENV 
3 THE PROGRAM WILL LOAD 
SETAPT: MOV @0Z . MAP ,RO 
MOV ¢BASE ,R1 
MOV sVECT1,R2 
BIC erc< 770> oR2 
MOvB $VECT1+1,R3 
RORB R3 
RORB RS 
RORB R3 
RORB R3 
RORB R3 
BIC @rC<7>,R3 
MOV a6 - 
MOV § RS 
MOV RS .OZACTV 
1%: FOR RS 
ecs 3% 
BEQ 5% 
TST CR4)> 
2s: ADO #10,R1 
aD 10, 
BR 
38: MOV R1,CRO)> 
MOV CRO)> 
MOV RS,CRO)+ 
MOV $CDW1., CRO)« 
MOV CRA)» ROD» 
BPL 
BIS #100000, -6(RO? 
BIC #10000 , -2(RO) 
4%: CLR CRO)« 
BR 2st 
S$: MOV @-1,CRO) 
MOV O¢SWREG , SUR 
RTS PC 





KS 





SEQ 62 


-ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 


(ENV) BYTE IS SET, 
FROM THE ETABLE. 


ITS PARAMETERS 


sPOINT TO THE DEVICE MAP TABLE 
sBUILD DEVICE ADORESSES IN Ri 
sBUILD DEVICE VECTORS IN R2 

sSTRIP AWAY OTHER INFORMATION 


sLOAD THE oan PRIORITY FROM RS 


RIAARERS 
aa a we 


sGET NUMBER OF LINES IN OPERATION 
sLOAD DEVICE PARAME 

vIF MODE CTED, SET IT WP 
sSET 20MA FLAG 


t 

s TERMINATE THE CE MAP 

sSET TO SOFTWARE APT SWITCH REGISTER 
sRETURN TO PRINT STATUS TABLE 


s@ROUTINE USED TO “AUTO SIZE” THE 0211 
s@CSR AND VECTOR. 


s@NOTE: TME CSR MAY BE ANY WHERE IN THE FLOATING 
ADORESS RANGE (160000: 163700) 
AND THE VECTOR MAY BE ANY 


WHERE IN THE 


FLOATING VECTOR RANGE (300:770) 


sLOAD MAP POINTER. 
sPOINT b Buy DEVICE DESCRIPTOR WORDS 


sZERO ENT 
sALL DONE? 


L5 


SEQ 63 
CZDZA-HO MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 65 
CZDZAH.P11 19-JUN-64 15:45 POWER DOWN AND UP ROUTINES 
2931 012310 001574 BNE 18 s6R IF NO 
2932 012312 105037 001410 CLRB OZNUM sSET OCTAL NUMBER OF 0211'S TO 0 
2933 012316 012702 001500 MOV @0Z .MAP ,R2 
2934 012322 012701 160000 MOV #160000 ,R1 sSET FOR FIRST ADORESS TO BE TESTED 
2935 012326 012737 012646 000004 MOV 06% , 004 sSET FOR NON-EXISTENT DEVICE TIME OUT 
2936 012334 052711 000040 2s: BIS e175, (R1) sTRY TO SET MASTER SCAN 
2937 012340 052761 000200 000004 Is eeIt7, acai) sTRY TO TRANSMIT ON LINE 7 
2938 012346 005000 RO sUSE RO AS A COUNTER 
2939 012350 005711 78: TST (R1) sHAS TRANSMITTER READY COME UP? 
2940 012352 100405 OMI 8% sIF SO, GO GET A FINAL CHECK 
2941 012334 005300 OEC RO sREDUCE COUNT. TIME UP? 
012336 001574 ONE 7$ sIF NOT, KEEP WAITING 
2943 012360 000465 6R 38 sASSUPE IT’S NOT A 0211 
012362 032761 000200 000004 68%: BIT e6IT7,4(R1) sIS LINE 7 EWABLE STILL SET? IT SHOULD BE 
2945 012370 001457 BEQ sIF IT'S NOT, ASSUME IT'S NOT A 0211 
2946 012372 032711 000040 BIT #8ITS,CR1) sIS MASTER SCAN ENABLE STILL SET? 
2947 012376 001454 BEQ 38 sIF NOT, ASSUME IT'S NOT A 0211 
2948 012400 005000 CLR RO 
2949 012402 052711 000020 Is @20,(R1) sSET DEVICE CLEAR 
2950 012406 032711 000020 BIT @20,(R1) sSHOULD STAY Y FOR A WHILE IF 02Z 
2951 012412 001446 Bea 33 sOR IF NOT 0211 
2952 012414 032711 000020 BIT @20,(R1) sWAIT FOR BIT TO CLEAR 
2953 012420 001404 BEQ .o12 s8R WHEN CLEARED 
2954 012422 104414 DELAY 
2955 012424 INC RO 
2956 012426 0013572 BNE .-12 
2957 012430 000437 BR 38 sBIT NOT CLEARED! MUST NOT BE 0Z11 
2958 012432 005011 CLR (R1) sGET RID OF MASTER SCAN ENABLE 
2959 012434 005061 000004 CLR 4(R1) sGET RID OF LINE 7 ENABLE 
2960 sAT THIS PCINT IT TS ASSUMED THAT Ri HOLDS A 0Z11 CSR ADDRESS. 
2961 012440 010122 MOV R1,CR2)o sSTORE CSR IN CORE TABLE. 
2962 012442 005722 TST (R2)e sPOP OVER VECTOR STORE AREA 
2963 012444 012722 000005 mov @5.CR2)- sSET THE OEFAAT BUS LEVEL 
2964 012450 052761 177400 00004 BIS @177400,4(R1) ;TRY TO SET ALL OTR BITS 
2965 012456 032761 177400 000004 eIT @177400,4(R1) sIF ANY SET ASSUME EIA BOARD 
2966 012464 001005 ONE 9 sIF NONE SET ASSUME BOARD IS 
2957 012466 052762 100000 177776 BIS @BIT1S.-2(R2) 1:20 MA, SET 20 MA FLAG 
2968 012474 012722 000377 98: MOV 0377 ,CR2)+ sSET THE DEFAULT LINE SELECTION PARAMETER 
2969 012500 012712 017070 MOV #17070, (R2) sSET THE DEFAULT PARAMETERS 
2970 012504 0122235 mov CR2)o CRS) sCOPY PARAMETERS INTO ETABLE DESCRIPTOR 
2971 CLR (R2)0 sSET THE DEFAULT MODE OF OPERATION 
2972 012510 012712 177777 MOV @-1,(R2) s TERMINATE LIST 
2973 012514 105237 001410 INCB sUPDATE DEVICE 
2974 122737 000020 001410 Cre #20, 0ZNUM sARE MAX. OF DEV FOUND? 
2975 012526 001405 Ba 1 sYES OCN’T LOOK FOR ANY ‘ 
2976 012530 062701 000010 38: ALD #10,R1 sUPDATE CSR POINTER ADORESS 
2977 012534 022701 163700 cor #163700 ,R1 
2978 012540 001275 BNE s8R IF MORE ADDRESS TO CHECK. 
2979 012542 100% 
2960 012542 105737 001410 TST8 OZNUM sWERE ANY 0Z11'S FOUND AT AL 
2961 012546 001432 BEQ S$ sERROR AUTO SIZER FOUND NO Witt S IN THIS SYS. 
2962 012550 113701 001410 MOVB OZNUM,R1 
2963 012554 1101357 001411 MOVB R1, SAVNUM sSAVE NUMBER OF DEVICES 
2964 012560 012737 000001 001404 MOV #1 ,0ZACTV 
2965 012566 0053501 4s: DEC Ri 
29866 012570 001404 BEQ 96% 


EEE, eee 
SEQ 64 
CZDZA-HO MACY11 SOAC10S2) 19-JUN-64 16:22 PAGE 64 
CZDZAM.P11 19-JUN-64 15:45 POWER DOWN AND UP ROUTINES 
2967 012572 1 SEC 
2968 012574 006137 001404 ROL OZACTV 
2969 012600 000 BR as 
2990 012602 013737 001500 0013510 96%: MOV . sPOINT TO THE ADDRESS OF FIRST DEVICE 
2991 012610 013737 001512 001514 MOV MANTO, $COW1 sINDICATE TO ETABLE WHAT MODE IS BEING USED 
2992 012616 012737 000006 000004 99%: mov 06, B04 sRESTORE TRAP VECTOR 
2993 012624 013737 001404 001512 MOV OZACTV , SOEVM sSAVE ACTIVE REGISTER 
2994 012632 000410 BR Od sGO FIND THE VECTOR NOW. 
2995 012634 104402 010574 S$: TYPE ° sNOTIFY OPR THAT NO 0211'S FOUND. 
2996 012640 005000 CLR sMAKE DATA DISPLAY ZERO 
2997 012642 000000 HALT sSTOP THE SHOW 
29968 012644 000776 BR 1OTSABLE CONT. Su. 
2999 012646 012716 012550 68: mov 03% CSP) s ENTERED A NON-EXISTENT TIME -OUT 
— 012652 RTI SRETURN T O MAINSTREAM 
1 
3002 012654 012737 000022 VECMAP: MOV 0340 , 8022 sSET IOT TRAP PRIORITY TO 7 
3003 012662 012737 013000 600020 MOV 04% , 8020 sSET IOT TRAP VECTOR 
3004 012670 012702 001590 MOV @0Z . MAP .R2 sSET SOFTWARE POINTER 
3005 012674 012 MOV #300 ,RO iFLOATING VECTURS START MERE. 
3006 012700 012701 000302 MOV 0302 ,.R1 sPC OF IOT INSTR 
3007 012704 010120 18: MOV R1, CRO) sSTART FILLING VECTOR AREA 
3006 012706 012721 000004 mov 04 ,CR1)> sWITH .02; IOT 
3009 0127 1 oP (RO)+, CRI D> sAOD 2 TO RO 
3010 012714 7 001000 cor R1,@1 sHAS THE VECTOR AREA BEEN EXCEEDED? 
3011 012 101771 60S 1s s0R IF MORE TO F 
3012 012722 0135704 001404 MOV OZACTV .R4 sSTORE TEMPORARILY 
3013 012726 0002461 2s: cic 
3014 012730 0060046 ROR R4 sBRING OUT A BIT 
3015S 012732 1030%6 ecc = s0R IF Ail DONE 
3016 012734 106427 000000 MTPS sZERO CPU PRIO 
3017 012740 012772 040040 000000 MOV ea1T14-81TS,0¢R2) 
3018 012746 011201 mov sGET CSR 
3019 012750 112761 000200 000004 MOVE 661T7,4(R1) iSET THE TCR BIT! 
3020 sATTEMPT TO FORCE AN INTERRUPT 
3021 012756 INC RO sSTALL 
3022 012760 001576 BNE --2 8 FOR TIME TO INTERRUPT 
3023 012762 012762 000300 000002 MOV 0300 ,2(R2) sNO ASSUME 300 AND FIX 0Z11 LATER 
3024 012770 38: RESET s INIT 
3025 012772 062702 000014 ADO #14 ,R2 sPOP SOFTWARE POINTER 
3026 012776 000755 BR 2s sKEEP GOING 
3027 013000 011662 4%: MOV (SP), 2CR2) sGET VECTOR ADORESS 
3026 013004 162762 000010 000002 SUB #10, 2(R2) sPOINT BACK TO THE CORRECT VECTOR 
3029 013012 042762 000007 000002 eIc #7 ,2(R2) sCLEAR JUNK 
3030 «6013020 POP2sP sPUP IOT JUNK OFF STACK 
3031 013022 012716 012770 mov 03% (SP) sSET FOR RETURN 
3032 013026 RTI 
3033 013030 015737 001502 001304 5%: MOV soe. $VECT1 sCOPY VECTOR OF 4g D ete INTO ETABLE 
3034 013036 012737 122 000020 MOV @. SCOPE , IOTVEC ; RESTORE THE SCOPE TR 
ore 013044 000207 RTS sALL DONE WITH “AUTO SIZING" 


$ 
Ww 
od 


NS 


SEQ 65 
CZDZA-HO MACY11 3OA(1052) 19-JUN-64 16:22 
CZ0ZAN.P11 19-JUN-64 15:45 CZDZA Ori Device “DIAGNOSTICS. 
3038 
3039 3 -SUNIBUS -ecececesccsesssesssasssssesesess 
3040 g -6XZ-secesscessossussesssessesasss 
3041 peaeccccccoccccccocsccoss TEST 1 eescccccsscococesoccscoscesees 
3042 s@THIS TEST PROVES THE SLAVE SYNC RESPONSE 
3043 s@DURING A READ OR WRITE TO THE FOLLOWING ADDRESS: 
S084 s¢ OZCSR, OZRBUF, OZTCR, OZMSR 
3045 g -6XZ-cecsccsscscssesesssssesssssss 
3046 s:6 «TEST 1 
3047 § J SOHHSSSSSSHSSSSCHSSSHSSSSSASSSSSSSSSSHSSSSSSSSSSSSSSHSSSSSESSSES 
3048 013046 000004 TST1: SCOPE 
3049 013050 012737 000001 001122 mov 01, $TSTNM sLOAD THE NUMBER OF THIS TEST 
3050 3 -- END O MACRO cecesseccessesssssss 
3051 013056 012737 013236 001560 MOV @TST2, NEXT ae TO THE START OF THE NEXT TEST 
3052 013064 012737 013224 000004 MOV 053.4 sSET TRAP VECTOR 
3053 013072 012737 000340 000006 MOV @PR7 6 sSET PRIORITY TO LEVEL 7 
3054 013100 012737 013106 001362 MOV #16 ,LOCK sSET RETURN IF SwO9- 
3055 013106 013700 002042 18: MOV OZCSR RO sSET ADORESS TO TEST 
3056 013112 011001 MOV CRO),R1 sREAD THE ADORESS 
3057 013114 NOP sWASTE TIME 
3058 013116 005010 CLR CRO) sWRITE THE ADDRESS 
3059 013 000240 NOP sWASTE TIME 
3060 013122 012737 0135150 001362 MOV 2% ,LOCK sSET RETURN ADDRESS FOR SWO9 
3061 0131350 013700 002046 2s: MOV OZRBUF ,RO sSET ADDRESS TO TEST 
3062 0135134 011001 MOV CRO),.R1 sREAD THE ADORESS 
3063 015136 NOP $ 
3064 013140 005010 CLR CRO) sWRITE THE ADORESS 
3065 0135142 000240 woP sWASTE TIME 
3066 013144 012737 013152 001362 MOV @3% ,LOCK iSET RETURN ADORESS FOR SWO9 
3067 013152 013700 002056 3$: MOV OZTCR,RO sSET ADORESS TO TEST 
3066 0135156 011001 MOV CRO),R1 sREAD THE ADORESS 
3069 013160 NOP 
3070 0135162 005010 CLR (RO) sWRITE THE ADORESS 
3071 013164 NOP 
3072 013166 012737 013174 001362 MOV @4% ,LOCK sSET RETURN 
3073 013174 013700 002062 at: MOV OZMSR ,RO sSET ADDRESS TO TEST 
3074 013200 011001 MOV CRO),R1 sREAC FROM 
3075S 013202 woP 
3076 013204 005010 CLR CRO) sWRITE THE ADORESS 
3077 013206 woP s 
3076 013210 012737 000006 000004 MOV 06.4 3sSET TRAP CATCHER BACK TO NORMAL 
3079 013216 005037 000006 CLR 6 $ 
3060 013222 104400 ADVANCE sSCOPE THIS TEST 
3061 013224 011601 S$: MOV (SP),R1 sSAVE PC OF TRAP 
3062 013226 022626 CHP (SP), CSP)+ sPOP TRAP OFF STACK 
3063 0135230 104001 ERROR 1 s@NO SLAVE SYNC RESPONSE 
3064 013232 104401 SCOP1 3SW09"17 
3065 013234 009111 JP (R1) sRTI 
3086 3 -- END O MACRO sesecessssacsesssss 
3087 -$XZ-sesesescessesssessssssssssess 
3088 eet ery eee TEST 2 seeccesescesecsecsoseeesesssess 
3089 s@THIS TEST PROVES THAT BIT “DCLR” 
3090 3@CAN BE SET AND THAT IT WILL CLEAR 
3091 s:*BY ITSELF AFTER A PERIOD OF TIME. 
3092  -$XZ-seesessesessssessesssssessses 
3093 3:@ TEST 2 


CZDZA -10 
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| es ees yrs 
Bé 


MACY11 co me 19-JUN-64 16:22 


19-AN-64 15:4 


013322 


000003 
013414 
002042 
000010 


001122 
001360 


001122 
001360 


PAGE 66 
CZDZA 0211 DEVICE OISGNOSTICS. 


TST2: 
o2, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 
a -- END O MACRO cocesececccesccecce 
"OV OTSTS NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV OZCSR RO SET POINTER 
MOV @OcLR, sSET OCLR 
MOV RS. CRO) sWRITE OCLR INTO OZCSAR 
MOV (RO), R4 sREAD BACK OZCSR 
cr RS ,R4 sOZCSR OK? 
erQ ia sIF IT IS SET SKIP THE ERROR CALL 
ERROR 2 s@0CLR SHOULD GE SET. .MOMENTARILY 
sNOW LETS WATCH IT DISAPPEAR 
18: GR R2 T 
ar RS sSET EXPECTED TO 0 
CLR 8 LOOP 
2s: "Ov (RO), RE sIS OCLR CLEAR? 
BEQ sIF YES , GO TO THE NEXT TEST 
Inc ORS sIF NO,COUNT 1 OF 6553S TICKS 
THE WORD CREATED BY THE IPPEDIATE © wILi GE 
sTHE COUNTER 
BNE 2s sHAS THE TIME EXPIRED? IF NO. GO TEST BIT AGAIN 
DEC Re sMAS THE TOTA TIE TIRED? 
BME Zu sIF MO, CHECK THE BIT AGAIN 
- ERROR 2 1 F T 
3 9p ntinaaeege cent pane at) 
b oo -@ee2eee0ee0eeeee0ee Geaaneaeacaece see 
pecccccooooosoooooosososs TEST § secccccccsscccscsesesssccsosess 
seTEST TO VERIFY THAT GIT “MAINT™ CAN 
se@E SET. THEN VERIFY THAT BIT “MAINT” CAN 
seBE CLEARED (WRITTEN TO A ZERO). AMD FINALLY 
S OVERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
s@CLEARED BY A “DEVICE CLEAR ae 
i oS -S8eeeeeeeeeesceeeanacaeanaeaaetaaecs 
3:@ TEST S 
t i gg 7" Ipenagnn lena toc rex aia mmanamacaae eeccccccoecs 
8 


OS, ¢TSTMM sLOAD THE NUMBER OF THIS TEST 


Ov OTST4 NEXT sPCINT TO THE START OF THE NEXT TEST 
MOV OZCSR ,RO sGET BASE ADDRESS 
MOV GMAINT RS sSET 
mov RS. (RO sSET SET IN DEV 
NOV (RO), RE sREAD THE BIT FROM DEVICE 
cr RS RA sWAS BIT SET? 
BEQ Lé s0R IF YES 
ERROR 2 seBIT R/U FAILURE 
18: BIC RS.CRO) a THE 
NOV (RO) ,R4 sREAD DEVICE 
EQ 2s sOR IF BITS WERE CLEARED. 
mov RS, -C SP) 1 SAVE THE BIT 
cir RS sSET EXPECTED RESULTS TO 0 
ERROR 2 se8IT FAILED TO CLEAR 
MOV (SP )+ RS sRESTORE THE BIT. 
2s: MOV RS,CRO) sSET THE BIT AGAIN 





Sitges tae C6 sn } 


SEQ 67 
, CZDZA-HO MACY11 SOA(1052) 19-JUN-64 16:22 PAGE 67 
| CZDZAH.P11 ©: 19- UN-84 15:45 CZOZA OZ11 DEVICE DIAGNOSTICS. 
| 3150 013402 1046415 oo CLR sISSUE DEVICE CLEAR 
| 3152 013404 011004 (RO) ,R4 =. THE ens 
| $1S2 013406 001402 po 38 sOR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
| $153 013410 005005 CR RS sSET EXPECTED TO ZERO 
| g1S4 013412 104002 ERROR 2 seBIT NOT CLEARED BY DEVICE CLEAR 
| $1SS 013414 38: 
3156 s -- END O MACRO ccccccccccosececess 
3157 s -- END O MACRO ceccescccccsccesccs 
3158 a - OPRRW- cocccccccesccsssesesessessasssesess 
3159 § -OXZ-cccescccccccccccecesesesssess 
3160 pecoccccocooooocoscoscoose TEST 4 seccccccocococeseccooscosooscs 
3161 seTEST TO VERIFY THAT BIT “ISENAB~ CAN 
3162 se@E SET. THEN VERIFY THAT BIT “MSENAB~ CAN 
3163 (WRITTEN TO A ZERO). AMD FINALLY 
3164 seVERIFY THAT AFTER SET AGAIN IT CAN BE 
3165 s@CLEARED BY A “DEVICE CLEAR’ 
31266 g -OXZ-ceccccccccssescccacesessecess 
3167 3:6 TEST 4 
8168 88 SOSSOSHSSS TGS SHOHADEHGSADSHHOEADSSSSOHHSSEBPESSASHASSSSASCHSESSHOHSESS 
3169 013414 000006 TST4: SCOPE 
hey 013416 012737 000004 001122 os y 04, ¢TSTNM sLOAD THE MUPBER OF THIS TEST 
3 MACRO ceeccesssecccssecss 
3172 013424 012737 013506 001560 MOV OTSTS NEXT sPOINT TO THE START OF THE NEXT TEST 
3173 013432 013700 002042 MOV OZCSR,RO sGET BASE ADDRESS 
3174 013436 012705 000040 mov OTSENAB RS sSET BIT 
3175 015442 010510 MOV RS.CRO) sSET SET IN DEVICE 
3176 013444 011004 nOV (RO) RA sREAO T FROM DEVICE 
3177 O1 cor RS RS sWAS BIT SE 
3176 013450 001401 EQ 18 8 ves 
3179 013452 104002 ERROR 2 seBIT R/U FAILURE 
3180 013454 040510 18: BIC RS.CRO) 8 THE 
3181 013456 011004 MOV (RO), RA sREAD OEVICE 
3162 013460 001404 BQ a6 18n IF BITS WERE CLEARED. 
3183 013462 010546 Ov RS. -CSP) sSAVE THE BIT 
013464 ar RS sSET EXPECTED RESULTS TO 0 
3185 013466 104002 ERROR 2 seBIT FAILED TO CLEAR 
31866 013470 012605 MOV (SP )o RS sRESTORE THE BIT 
3187 013472 010510 2s: mov RS. CRO) sSET THE BIT AGAIN 
31868 013474 104415 DEVICE .CLR sISSUE DEVICE CLEAR 
31869 013476 011004 MOV (RO), RE sREAD THE BIT. 
3190 013500 001402 BEQ 36 OR IF BIT _—. BY INIT (DEVICE CLEAR) 
3191 013502 QR RS sSET EXPECTED T 
3192 013504 104002 ERROR 2 seBIT NOT CLEARED BY DEVICE CLEAR 
3193 013506 38 
3194 t-- O MACRO cecececesscecessese 
3195 s -- END O MACRO cecccescccccesccsss 
3196 p -OMRRY- cccccccsccccccccccevesessssssessess 
3197 g -OXZ-cecececcccccccecesesesssseses 
3196 poocccccoooooosososoosoos TEST 5 seccccccessssesoscosssesossess 
3199 seTEST TO VERIFY THAT BIT “SILOEN” CAN 
3200 seBE SET. THEN VERIFY THAT BIT “SILOEN” CAN 
3201 eBE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
3202 + VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
3203 s@CLEARED BY A “DEVICE ager 
3204 s- -Seeeccesecessessesasesesasssss 


3205 3:¢ TEST 5S 





D6 


SEQ 68 
CZDZA -HO MACY11 SOAC10S2) 19-JUN-64 16:22 PAGE 66 
CZDZAH.P11  19-JUN-64 15:45 CZDZA 0Z11 DEVICE DIAGNOSTICS. 

3206 § § SOOHSSSSSSHHSHHHSSSSHHSHSSSSOHHASSHHSSSSSOOSOSSEHOOHSESSEHEEESS 
3207 013506 000004 TSTS: 
$206 013510 012737 000005 001122 nes @5, STSTNM sLOAD THE NUMBER OF THIS TEST 
3209 t-- MACRO cecccecesessceseces 
3210 013516 012737 013600 001560 MOV OTST6, NEXT sPOINT TO THE START OF THE NEXT TEST 
3211 013S24 013700 002042 MOV SR, RO sGET BASE ADDRESS 

013530 012 010000 mov @SILOEN,RS sSET BIT 
3213 013534 010510 MOV RS.CRO) sSET SET IN 
3214 013536 011004 Mov (RO) ,R4 sREAD THE BIT FROM DEVICE 
3215 013540 cP RS RA sWAS BIT SET 
$216 013542 001401 BEQ 1s s0R IF YE 
3217 013544 104002 ERROR 2 seBIT R/W FAILURE 
3216 013546 040510 is: BIC RS.CRO) 3 
3219 013550 011004 MOV CRO),R4 sREAD DEVICE 

013552 001404 BEQ 2s 188 IF BITS WERE CLEARED. 
3221 013554 010546 MOV RS, -CSP) sSAVE THE BIT 
3222 013556 CLR RS sSET EXPECTED RESULTS TO 0 
3223 013560 104002 2 seBIT FAILED TO CLEAR 
3224 013562 012605 CSP )+ RS sRESTORE THE BIT. 
3225 015564 010510 26: RS,.CRO) sSET THE BIT 
3226 013566 104415 DEVICE .CLR sISSUE DEVICE CLEAR 
3227 013570 011004 MOV CRO) ,R4 sREAD THE BIT. 
3226 013572 001402 BEQ 38 s6R If BIT CLEARED BY INIT (OEVICE CLEAR) 
3229 015574 005005 CR RS sSET EXPECTED T 
3230 013576 104002 ERROR 2 seBIT NOT CLEARED BY DEVICE CLEAR 
3231 0135600 38: 
3232 s -- END O MACRO sececescscessscsess 
3233 3s -- END 0 MACRO eecccccescssecesess 
3234 3 - OMRRW- ecececccsssasssscesassseseasssssssss 
3235 § -6XZ-ceccccecesecscscessssasssssss 

pocosccooosoooooooososons TEST 6 eeccesessccosesocooooeoeeocess 
3237 s*TEST TO VERIFY THAT BIT “RIE* 
3238 sBE SET. BIT “RIE~ CAN 
3239 s@BE CLEARED (WRITTEN TO A >. AND FINALLY 
3240 seVERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
3241 s@CLEARED BY A “DEVICE CLEAR 
3242 3 - aati deibiieieiaieiesitiiitimianineseeiainnes 
3243 s:* TEST 6 
3244 MWrririrriir tr rir rir irri iiit) 
3245 013600 000004 TST6: 
5 013602 012737 000006 001122 a, ee ¢TSTNM sLOAD THE NUMBER OF THIS TEST 
s-- seesessesessasesess 

3248 013610 012737 013672 001360 MOV @TST7 NEXT sPOINT TO THE START OF THE NEXT TEST 
3249 013616 013700 002042 MOV OZCSR RO sGET BASE ADDRESS 
3250 013622 012 000100 MOV @RIE RS sSET BIT 
3251 013626 010510 KOV RS.CRO) sSET SET IN DEVICE 

013630 011004 MOV CRO), R4 1READ THE os FROM DEVICE 
3253 013632 020504 Cor RS ,.R4 ay BIT SET? 
3254 013634 001401 BEQ 1% 8A IF YES 
3255 013636 104002 ERROR 2 ;eBIT R/W FAILURE 
3256 013640 040510 1s; BIC RS, CRO) sCLEAR THE BIT. 
3257 013642 011004 MOV CRO) ,R4 sREAD DEVICE 
3258 013644 001404 BEQ 26 18R IF BITS WERE CLEARED. 
3259 013646 010546 MOV RS, -C( SP) sSAVE THE BIT 
3260 013650 005005 CLR RS sSET EXPECTED RESULTS TO 0 
3261 013652 104002 ERROR 2 1e8IT FAILED TO CLEAR 





pe ee EEEEOEOEEEOEOEOEOOEOEOEOEOEaeeeeeee— 


MACY11 SOAC10S2) 19-JUN-64 
CZOZA 0211 DEVICE SSIAGNOSTICS. 


19-JJN-64 15:45 


013764 


001122 
001360 


E6 


SEQ 69 


16:22 PAGE 6 


MOV tf Tn sRESTORE THE BIT. 


RS, CRO) sSET THE BIT AGA 
OEVICE.CLR sISSUE DEVICE CLEAR 
(RO) ,R4 sREAD THE BIT. 
620 38 s0R IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR RS sSET EXPECTED TO ZERO 
ERROR 2 s@BIT NOT CLEARED BY DEVICE CLEAR 


- END 0 MACRO 
- END O MACRO ceccesesscesssceses 


3 -SARRW- ccccccccesccscensesessccecassssssss 
-§XZ-eececcesacesesssssesssssasess 


BE 
VeVERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
CLEARED "DE CLEAR” 


8 BY A VICE 
5 -$XZ-cececesesssccesessssssesssess 
3:@ TEST 7 
H Hi sega “*" gt etna taiananemranamaemenemnemmcennmt: 
7: 


07, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 


MOV @TST10, NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV ——-OZCSR, RO 1GET BASE ADDRESS 
MOV @TIE.RS ;SET BIT 
MOV RS.CRO) sSET SET IN DEVICE 
MOV (RO) ,R4 sREAD THE BIT FROM DEVICE 
Cr RS RE sWAS BIT SET? 
BEG is YES 
ERROR 2 seBIT R/W FAILURE 
1%: BIC RS, CRO) sCLEAR THE 
MOV CRO) ,R4 sREAD DEVICE 
BEQ 4] s0R IF BITS WERE CLEARED. 
MOV RS, -( SP) sSAVE THE BIT 
CLR RS sSET EXPECTED yoy TO 0 
ERROR 2 1e8IT FAILED TO CLEAR 
MOV (SP )¢ RS sRESTORE THE GIT 
2s: MOV RS. CRO) sSET THE BIT AGAIN 
OEVICE .CLR sISSUE DEVICE CLEAR 
MOV (RO) ,R4 sREAD THE BIT. 
BEQ 3$ s8R IF BIT oe BY INIT (DEVICE CLEAR) 
CLR RS sSET EXPECTED T 
- ERROR 2 se¢B8IT NOT CLEARED BY DEVICE CLEAR 
3s -- END O MACRO seeccesscessscsscss 


3 -- END O MACRO seeesescccessscesss 


p -$TCR-ceccseccccesssccssccesssusssssasssesssssss 
8 -$XZ-sesesessseceaseessseasssasess 
poccsosooooossososoosososs TEST 10 sesceccesscsscososasrsessseess 
s@THIS TESTS THAT ALL OF THE FOLLOWING 
s@BITS CAN BE: SET, CLEARED, CLEARED BY “DEVICE CLEAR “ 
s*BITS TESTED ARE; 
s@ TCRO, TCR1, TCR2, TCRS, pe TCRS, TCR6, TCR7 


t- XZ -seesceseceseesessessasesassse 








—EEEoEooooaaaaeEEEEEEEEE EOE ee eeeeEeEeE—E—EEeEeEeeeeeeoeeeeeeeeeeeee 
| F6 
SEQ 70 

CZDZA-HO MACY11 3OA( 1052) 19-JUN-64 16:22 PAGE 
CZD0ZAH.P11 19-JUN-64 15:45 CZDZA 0Z11 DEVICE "OIAGNOSTICS. 

3318 3:@ TEST 10 

3319 | SOCORRO COOOOREL OOODESEEEEEEEEREDESESESEEROREDEREEEOOSEOESESESES 

3320 015764 TST10: 

3321 013766 012737 000010 001122 ses #10, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 

3322 : -<« MACRO seesenceaeaeoaoaoeaoaeean 

3323 013774 012737 014122 001360 MOV @TST11,NEXT sPOINT TO THE START OF THE NEXT TEST 

3324 014002 013700 002056 MOV TCR, sSET DEVICE ADDRESS 

3325 014006 012705 000001 MOV & ° sSET EXPECTED RESULTS 

3326 014012 012737 014020 0013562 MOV 1% ,LOCK sSET FOR SWO9 

3327 014020 010510 1%: MOV CRO) 3SET THE BIT 

3326 014022 011004 MOV CRO) ,R4 sREAD THE BIT FROM THE DEVICE 

3329 014024 704 177400 BIC 0*C<377>,R4 sCLEAR HIGH BYTE 

3330 014030 CMP RS ,R4 sWAS BIT OK? 

3331 014032 001401 BEQ es s6R IF YES 

3332 01406 i é ;eBIT FAILED TO SET. 

3333 014036 040510 2s: BIC RS,CRO) sCLEAR THE BIT 

3334 014040 011004 MOV CRO) ,R4 sREAD THE REGIS 

3335 014042 042704 177400 BIC 6tC<377>,R4 :CLEAR HIGH BY 

3336 014046 005704 TST Ga sBITS CLEAR? 

3337 014050 001404 BEQ 8 IF YES 

3338 014052 010546 RS, -(SP) sSAVE GOOD ~ 

3339 014054 005005 CLR RS 3SET EXPECTED TO 

3340 014056 104002 ERROR 2 3s @REPORT y NOT CLEAR 

3341 014060 012605 MOV (SP)+,RS sRESTORE RS 

3342 014062 010510 3%: MOV RS.CRO) sSET THE BIT AGAIN. 

3343 014064 104415 DEVICE .CLR sISSUE DEVICE CLEAR 

3344 014066 011004 MOV CRO),R4 8 THE 

3345 014070 042704 177400 BIC @tC<377>,R4 sCLEAR HIGH BYTE 

3346 014074 005704 TST Ra sBITS CLEAR? 

3347 014076 001404 BEQ &s s6R IF YES 

3348 014100 010546 Mov RS, -CSP) sSAVE GOOD RESULT 

3349 014102 005005 CLR sSET EXPEC TO 

3350 014104 104002 ESR0R 3 T BIT NOT CLEAR 

3351 014106 012605 MoV (SP )+,RS sREST RS 

3352 014110 104401 4%: Scop sLOCK ON BIT? SET SwO9-1 

3353 014112 106305 ASLB RS sCHANGE TO NEXT BIT 

3354 014114 001341 BNE 1s a TESTING 

3355 014116 37 001362 CLR LOCK MAKE SURE TIGHT LOOP IS CLEANED UP 

3356 s -- END O MACRO cen ICT soar 

3357 p -$TCR-cesccccccccssssesssessesscsssssssssssssess 

3358 t -$XZ-sesescssssassesessasesesessses 

3359 poecccssooosooooscosososs TEST 11 seeccccesooscoaccsenssossceses 

3360 s*THIS TESTS ie ot OF THE FOLLOWING 

3361 s@BITS CAN BE: SET, CLEARED, CLEARED BY “RESET INSTR eNOTe DEVICE CLEAR “ 

3362 s@BITS TESTED ARE: 

3363 3@ OTRO, OTR1, OTR2, OTRS, OTR4, OTRS, OTRE, OTR7 

3364 3¢THIS TEST IS NOT DONE IF MODULE Is 2OMA VERSION 

3365 1 -$XZ-sesesscassesecsseasessssassss 

3366 3:@ TEST 11 

3367 } SOSSSOSOSSSESEESOSEESEESESEESOEEEESEEEESEESESEEEESESEEEEEEEESES 

3366 014122 TST11: SCOPE 

369 014124 012737 000011 001122 MOV #11, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 

3370 3 -- END O MACRO cecesescessessseses 

3371 014132 012737 014304 001360 MOV @TST12,NEXT sPOINT TO THE START OF THE NEXT TEST 

3372 014140 013700 002056 MOV OZTCR,RO sSET DEVICE ADORES. 

3373 014144 012705 000400 MOV @OTRO,RS 1SET EXPECTED RESULTS 


3374 
3375 
3376 
3377 
3376 
3379 


SSS CEOTORESORCRARGReSSe Sad EEsESE CRO EEEES 


BSSROEERS 


é 


CZDZA -HO MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 
CZOZAM.P11 19-JUN-64 15:45 


014150 012737 014166 001362 
014156 105737 001414 
00001 


014216 005005 
014220 104002 
014222 012605 


7 
014250 012710 177400 
005005 


014304 000004 
014306 012737 000012 001122 


G6 
SEQ 71 
CZOZA 0211 DEVICE "ArAGNOSTICS. 
MOV #18 ,LOCK 3SET FOR SWO9 
TST8 EIAFLG s20MA OR EIA 
is s6R IF EIA 
ADVANCE sEXIT TEST 
18%: MOV RS,.CRO) sSEY THE BIT 
MOV CRO), R4 sREAD THE BIT FROM THE DEVICE 
CLAS a sCLEAR LOW BYTE 
CMP RS ,R4 sWAS BIT OK? 
BEQ 2s sOR IF YES 
ERROR 2 ;e8IT FAILED TO SET. 
2¢: BIC RS,CRO) sCLEAR THE BIT 
MOV CRO), R4 sREAD THE REGISTER 
Cu Ra sCLEAR LOW BYTE 
TST Ra sBITS CLEAR? 
BEQ 38 s0R IF YES 
RS, -C(SP) sSAVE GOOD RESULTS 
CLR RS sSET EXPECTED T 
ERROR 2 s@REPORT BIT NOT CLEAR 
Mov (SP)+,RS sRESTORE RS 
3%; MOV RS,.CRO) sSET THE BIT AGAIN. 
DEVICE .CLR sISSUE DEVICE CLEAR 
(RO), R4 sREAOD REGISTER 
sCLEAR LOW BYTE 
BIT RS.CRO) sWAS BIT CLEARED BY DEVICE.CLR? 
s8R IF NO CIT SHOULDN'T BE CLEAR) 
ERROR 2 seBIT CLEARED BY DEVICE.CLR 
4s: SCOP1 sLOCK ON BIT? SWO9-1 
ASL sCHANGE TO NEXT BIT 
BNE is sIF NOT DONE L 
MOV #177400, (RO) sSET ALL OTR BITS 
CLR RS sCLEAR LOCATION FOR ERROR PRINTOUT 
S$: INC eo sACT DELAY LOOP FOR 
BNE 5% sRESET INSTRUCTION 
RESET sISSUE A BUS INIT 
MOV (RO), R4 sREAD REGISTER 
CLRB Ra sCLEAR LOW BYTE 
TST R4 ;0TR BITS CLEAR? 
BEQ 04 sIF YES CONTINUE 
ERROR iIF NO PRINT ERROR 
CLR s3MAKE SURE TIGHT LOOP IS CLEANED UP 


LOCK 
ry - END O MACRO seeesessesesscesscss 


3 OMRR-cccccscesscessessssacssassssssssessses 
g -$XZ-secccccscesesssessesssesssssss 


ONLY OR READ ONLY BIT 
3@ TEST BITS “ROONE, BIT11, BIT10, BIT, BITS, BIT2, BIT1 


s¢ BITO, SILOAL” ARE READ ONLY AND THAT L- an 

16 ZERO UNTIL A LINE IS SELECTED AND MSENAB I 

,@ 

ry -$XZ-sasesessasesescasasasenssases 
3:@ TEST 12 
agar aera ilipe mea acammanamc AK RRO best Os 
: 
#12, $TSTNM sLOAD THE NUMBER OF THIS TEST 


s -- END O MACRO seecceccsesesesesss 


CZDZA-HO0 
CZDZAM.P11 


014314 


H6 


MACY11 SOAC 1052) 19-JUN-64 16:22 PAGE 7. 
4s CZDZA 0211 DEVICE SIAGNOSTICS. 


19-JUN-64 15:4 
012737 014422 
013700 002042 
005005 
012710 027607 
011004 
sonoee 
012710 100000 
011004 
Soeeee 
012705 100000 
0050 165466 
052777 000001 
052710 000040 
052 000040 
011004 
001404 
104414 
001372 
012737 0000135 
012737 014552 
104413 
013700 002042 
012710 177757 
012705 050150 
011004 
cosest 
soeees 
011004 
001401 


001360 


165464 


001122 
001360 


18: 


28: 


4: 


MOV @TST13,NEXT sPOINT TO THE START OF THE NEXT TEST 

MOV OZCSR ,RO = ADDRESS TO "3 

CLR RS sSET EXPECTED TO 0 

MOV @ROONE +BIT11 -B1T10-81T9-8176-81T2-B1T1 *BITO+SILOA ,(RO) 
sWRITE THE BITS 

MOV (RO), R4 sREAD BACK THE BITS 

BEQ 18 sR IF NONE ARE SET. 

ERROR 2 seBITS WERE SET. 

MOV @TROY, CRO) sATTEMPT TO WRITE TROY 

MOV (RO) ,R4 sREAD TROY 

BEQ es s6R IF NOT SET 

ERROR 2 18 

MOV @TROY ,RS sSET EXPECTED BIT 

CLR GOZLPR sLOAD L te) 

6Is @TCRO, EDZTCR sSET TCR BIT 

BIS @MSENAB , (RO) i 

BIS . sSET SCAN 

CLR Re sSET COUNTER TO 

MOV (RO) ,R4 i THE REGISTER 

chp RS ,R4 sBIT SET? 

BEQ 4s s6R IF YES 

DELAY sSTALL TIME 

INC R2 sUPDATE COUNTER 

BNE 3% s6R IF COUNTER NOT DONE 

ERROR 2 s@TROY NOT SET! 


-$XZ-esesescessasessssesessssesssss 
s00eesessecseeeeesesss TEST 13 eeeceesesescecasessesesessesse 
s¢THIS TEST PERFORMS RESET TESTING AND 
s@TESTING Mh ONLY AND WRITE ONLY BITS 


seTHIS TEST ALSO CHECKS BYTE OPERATIONS ON THE CSR 


i -$XZ-sesesceccasssassssssssssessss 


3:@ TEST 13 
H L 7 sae" ale aaeapaa snceicns angen aula aeieacmeatasaerema 
3 
my 013, $TSTNM sLOAD THE NUMBER OF THIS TEST 
t -- seeseeseeeeaeaesesaeaeaesee 
ev rce @TST14,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV OZCSR RO 3SET UP FOR ERROR MESSAGE 
MOV @tC<DCLR> , (RO) i TRY TO WRITE 
MOV 2 emeuiaeenaam > “ema RS ,;MAKE EXPECTED 
MOV CRO), R4 
CMP R4,RS CHP EXPECTED VS ACTUAL 
BEQ 1s sYES 
ERROR 2 3@NO 
1%: CLRB (RO) sCLEAR LOWER BYTE OF CSR 
CLRB RS sSET EXPECTED 
MOV CRO), RE sREAD CSR BITS 
CMP R4,RS sCOMPARE ACTUAL TO EXPECTED 
BEQ .T) sBRANCH IF SAME 


SEQ 72 


16 


SEQ 73 
CZDZA-H0 MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 73 
CZDZAH.P11 19-AUN-64 15:45 CZDZA 0Z11 DEVICE DIAGNOSTICS. 
3486 014500 104002 ERROR sOTHERWISE PRINT 
3487 014502 012710 177757 36: MOV Sr C<OCLA> .CRO) RESET CSR BITS 
3488 014506 105077 165352 CLRB @o7zCcsr AR HIGH BYTE OF CSR 
34869 014512 012705 000150 MOV ORIE !MSENAB tmMaINt RS 
3490 eet RS TO EXPECTED RESULTS 
3491 014516 011004 MOV CRO) ,R4 ’ 
3492 014520 020405 cre R4,RS sACTUAL © EXPECTED? 
3493 014522 001401 BEQ at sGRANCH IF 
349% «20014524 104002 ERROR 2 sOTHERWISE PRINTOUT ERROR 
3495 014526 012710 177757 as: MOV @tC<DCLR>,(RO) RESET CSR BITS 
3496 64014532 005005 CLR RS sSET RS TO en RESULTS 
3497 014534 005227 000000 S$: INC 0 SDELAY TIMER Fi 
34968 4014540 001575 BNE Ss sACT-11 COMPATIBILITY 
3499 «4014542 000005 RESET sISSUE BUS INIT 
3500 014544 011004 MOV (RO), RE sREAD CSR REGISTER 
3501 014546 001401 BEQ 2s sBRANCH IF CSR IS CLEAR 
3502 014550 104002 ERROR 2 sIF INT 
3503 014552 2s: 
3504 9 -OARWD- cccccsesccessssecssessssses 
3505 8 -$XZ-sessccesssssassessesessesssss 
3506 peocccccocooosoosososososs TEST 14 sescecesecooosssoosoososoesess 
3507 seTHIS TEST PERFORMS RESET TESTING AND 
3508 s@TESTING OF READ ONLY REGISTER OZROUF 
3M TESTING OF WRITE ONLY REGISTER DZLPR 

3510 g -$XZ-eescesecsesesessesssssssasess 
3511 s:@ TEST 14 
3512 3 § SOHHSSSSSSSHSSSSSSSSSSSSSSSSSSSSOSSOSSSSSSSSSHSSSHSSESSHSESSSEESE 
3513 014552 000004 TST14: SCOPE 
ae 014554 012737 000014 001122 se. 014, $TSTNM sLOAD THE NUMBER OF THIS TEST 

t-- MACRO ceesessessesssseses 
3516 014562 012737 014642 001360 MOV @TST1S NEXT sPOINT TO THE START OF THE NEXT TEST 
3517 014570 1046415 DEVICE .CLR sCLEAR 0211 
3516 014572 013700 002046 MOV OZRBUF ,RO sSET UP FOR ERROR MESSAGE 
3519 014576 011005 MOV CRO) .RS sSET EXPECTED 
3520 014600 912777 177777 165244 MOV ae ~ sTRY TO WRITE ALL 1'S 
3521 014606 011004 MOV CRO) ,.R4 s ACTUAL 
3522 014610 042705 104000 BIC @OVALID!GIT11.R5. sDITTO 
3523 014614 020405 cep R4 RS sChP ACTUAL VS EXPECTED 
3524 014616 001401 BEQ is siF YES.GO CONTINUE PROCESSING 
3525 014620 104002 ERROR 2 s@ERROR- BIT PATTERN NOT CORRECT 
3526 014622 010405 1%: MOV R4,R3 sGET A COPY OF THE ACTUAL BIT PATTERN 
3527 014624 005105 COM R3 sGET THE LOGICAL INVERSE OF THE BIT PATTERN 
3528 014626 010377 165220 MOV R3,GDZLPR S TRY TO WRITE 
3529 014632 011004 MOV (RO) ,R4 s ACTUAL 
3530 014634 020405 Cer R4,RS sChMP ACTUAL VS EXPECTED 
3531 014636 001401 BEQ et sIF YES, GET OUT OF THIS TEST 
3532 014640 104002 ERROR 2 3@NO 
3533 014642 2s: 
3534 s -- END O MACRO seessssescssssccess 
3535 p -SMRWD-cescccscccesecssesesesessss 
3536 g -$XZ-cesscsesssscssssssssscssssess 
3537 poecsccocosooosososososos TEST 15 seccsccecocccesssssosoeseeeese 
3538 s*THIS TEST PERFORMS RESET TESTING AND 
3539 s@TESTING OF READ ONLY REGISTER DZMSR 
3540 s@AND TESTING OF WRITE ONLY REGISTER OZTOR 


3541 } -OXZ-ceccesesescscesssecasssasssss 


cee BS Meni a 


J6 
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3:@ TEST 15 
Te ee ">" aeeagaecaes eh tig meade mee puaaenn miertemee meant 
: 
000015 see #15, $TSTNM sLOAD THE NUMBER OF THIS TEST 
t -«- MACRO eeseeseaaaecaeanasaoaaoaoaa 
014726 001360 @TST16,NEXT sPOINT TO THE START OF THE NEXT TEST 
DEVICE .CLR sCLEAR 0211 


Syd: 
3 


002062 MOV OZMSR sSET UP FOR ERROR MESSAGE 
sSET EXPECTED 
sTRY TO WRITE ALL 1'S 


s ACTUAL 
3CMP ACTUAL VS EXPECTED 
CONTINUE 


177777 165170 


BY 


sTRY TO WRITE 

s ACTUAL 

sCMP ACTUAL VS EXPECTED 

sIF YES, GET OUT OF THIS TEST 
; 


gBRS29 353228 


2s: 
s -- ENDO 


SeRaERR URNA 
: 


-$XZ-seseseseesssesssessssssssssss 
senecccessooocoesesecones TEST 16 sesecesesenesssecseeeseesesese 
TAGGERED“ 


gaey 


7 -$¢XZ-seecessesasesesesssesessssess 


3:@ TEST 16 
js OCSSOSSSHSSESEESESESSESESESEESEEEESEEESEEEEEEEEEESEEEEEEESESEES 


TST16: SCOPE 
MOV #16, $TSTNM sLOAD THE NUMBER OF THIS TEST 
3 -- END MACRO secesssessesessssen 
@TST17 NEXT sPOINT TO THE START OF THE NEXT TEST 

sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
sEIA OR 2OMA? 
sR IF EIA 
VEXIT TEST 
sSET REGISTER 
sINIT 0Z11 
sZERO LINE R 
sSET POINTER 
sARE WE IN STAGGERED MODE? 
sYES WE ARE! 
— THIS TEST! NOT STAGGERED 
8 
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3596 015016 130237 001564 1%: BITB R2,LINE sTEST THIS LINE? 

3599 015022 001004 BNE 38 sYES 

3600 015024 005205 23: INC R3 sLINE @ 

3601 015026 106302 ASLB R2 sGET NEXT LINE 
0150380 1035372 Bcc is sKEEP 
015032 104400 ADVANCE sADVANCE THIS TEST 
015034 010204 38: MOV R2,R4 sSAVE BINARY BIT FOR LINE @ 
015036 032703 000001 BIT @6ITO,RS sGET STAGGERED COMPANION LINE 
015042 001402 BEQ s6R IF LINE 

006204 R4 t 
015046 000401 BR S$ 
015050 0063504 4s: ASL R4 sADJUST LINE 
015052 005005 S$: CLR RS sSET EXPECTED 
015054 150405 BIS8 R4,RS i 
015056 0003505 RS ’ 
015060 150405 BISB R4,RS ’ 
015062 150277 164772 BIS8 R2,GHOZTCR sSET OTR 
015066 104414 DELAY sCABLE DELAY 
015070 011004 MOV CRO) ,R4 sREAD MSR REGISTER 
615072 020504 cr RS ,.R4 30K? 
015074 001401 BEQ 6% sYES 
015076 104002 ERROR 2 s@ERROR IN RING OR CARRIER 
015100 140277 164754 68: Bice R2,GHOZTCR sCLEAR OTR 
015104 104414 DELAY sCABLE DELAY 
011004 CRO),R4 i 

015110 001402 Bila 7 s6R IF THEY CLEARED 
015112 005005 CLR RS sSET EXPECTED TO 0 
015114 104002 ERROR 2 s@BITS NOT CLEARED 
015116 104401 78%: SCOP1 sLOCK ON SIGNAL? 
015120 000741 BR 2s sCONTINUE TEST 


-$XZ-sessessesesssssssssessessssss 
ee cee ee ae TEST 17 eescsesesceseccesasaseseeesess 
3@TEST TO VERIFY THAT IF IN “EXTERNAL” 
3@MO0DE; SETTING OTR FOR SELECTED LINES 
eWILL BRING UP “CARRIER” AND “RING” 


1eAND — AT START TIME OR ALTERING 
;eSTATUS MAP 
3 -$XZ-sesecesesesesssscsesasssssass 
3:@ TEST 17 
jp OSSSROSSESESSESESESESESESEEESESEEEEEEESESEEEESEEEESESESESEESEEe 
015122 000004 TST17: SCOPE 
015124 012737 000017 001122 mov 017, ¢TSTNM 3LOAD THE NUMBER OF THIS TEST 


015132 012737 015260 001360 MOV @TST20, NEXT sPOINT TO THE START OF THE NEXT TEST 

015140 012737 015174 001362 MOV 3% ,LOCK sUSE THIS ADORESS IF A TIGHT SCOPE LOOP IS SELECTED 
015146 105737 001370 TST8 MODE sEXTERNAL ? 

015152 100401 BMI 2s s6R IF YES 

015154 104400 18: ADVANCE sEXIT TEST 

015156 105737 001414 2s: TSTB EIAFLG sYOU BETTER BE IN 

015162 100774 BMI 1$ sEIA MODE a THIS TEST. 


015164 013700 002062 MOV OZMSR ,RO iSET REGISTER 
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164634 


164616 


001122 
001360 


Mov 
34: BITs 


4$; 


58: 


78: 


R2.LINE 


SEQ 76 


sSET LINE POINTER 
sLINE SELECTED? 
6R YES 


EXPECTED LOC. 
CLEARED. 


3 -$TLINE-cecceasesssseccssssssesesssssssss 
-$XZ-seseossessessssssssssssssssss 


3 
pecoccesosoosososooosoose TEST 20 . "TTC" Bere 
3@ THIS TEST VERIFIES THAT TROY XS SET WHEN A LINE 
3@ IS READY TO BE LOADED, 
3@ FIED IN BITS 6-10 OF OZ7SR CORRE SPOND 
s@ TO THE LINE SELECTED 


3:¢ TEST 20 


AG THAT THE LINE SPECI- 


Tw OZTCR 


3 -$XZ-senessensesessssessesssssssse 


jp PSOSOSSSRSSOSESSSSESEOSESEEEEEEEESESESEESESESESSESESEEEEEEEEEES 
: SCOPE 


sLOAD THE NUMBER OF THIS TEST 


sPOINT TO THE START OF THE NEXT TEST 
sISSUE A “DEVICE CLEAR” (RESET) 


sSET PO 

SSTART THE EXPECTED LINE NUMBER AT 0 

sSET UP FOR ERROR PRINTOUTS 

sUSING R2 AS A BIT —_ POINT TO LINE O 


sIF NO, T 
3SET THE GO BIT FOR THIS LINE 
ISTART THE SCANNER 

3sSET FOR DELAY 

+TX READY? 

36R IF YES 

s0ELAY 

s COUNTER 

18R IF <>0! 

3¢TX NOT READY! 


@20, $TSTNM 
s-- END O ssesesasesecessasesa 
MOV @TST21 , NEXT 
OEVICE .CLR 
MOV OZCSR RO 
MOV @PSENAS ! TROY .RS 
CLR SAVLIN 
MOY #1,R2 
1%: BITB R2,LINE 
BEA 
2s: BIS R2,@DZTCR 
BIS e 
CLR 
3%: BIT @TROY , CRO) 
BNE 
DELAY 
INC FS 
ONE 3% 
ERROR 5 
4s; MOV CRO), R4 


GET THE LINE POINTED TO BY THE SCANNER 


Sa aaaaaaaaamamaaaaaaeaaaaaaaaaaaaaaaaacasaaaacaanasacacaaccaacacaccacaccecmmmmaaa, 
| M6 
SEQ 77 
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3710 015360 020405 Cop R4 RS sIS THE LINE NUMBER WHAT IT SHOULD BE? 
3711 015362 001401 BEQ et | sIF YES,GO WORK ON THE NEXT LINE 
3712 015364 104002 ERROR 2 s@LINE NUMBER DID NOT MATCH TCR BIT 
3713 015366 062705 000400 58: ADO @400,R5 sPOINT TO THE NEXT EXPECTED LINE 
3714 015372 104415 DEVICE .CLR sISSUE A “DEVICE CLEAR” (RESET) 
3715 015374 005237 001572 Inc SAVLIN sADJUST FOR NEXT LINE 
3716 015400 106502 ASLB Re sPOINT TO THE NEXT LINE.ARE ALL LINES TESTED? 
3717 015402 1035346 ecc AS sIF NOT, GO OO THE NEXT LINE 
3718 015404 68: 
3719 : -- END O MACRO paar amet t  e tae 
t- -Seeeeeesssessssssssssesesesss 
3721 peoccccsosoocoooooososoose TEST 21 seecesececossecesesosoeseososs 
3722 seTEST TO CHAR 
3723 s@RECEIVE ONE CHAR ON 
724 seAT A TIME. THE CHAR IS “252° MOD 
3725 1eALL Oe ees coat tae 
3726 s@OME AT A TIME. THIS IS THE FIRST TIME ANY 
3727 s@DATA IS CHECKED IN THE RECEIVER. 
3726 s@USING SWITCH NINE WITH THIS TEST of teen A TIGHT SCOPE LOOP 
3729 s@WMICH TRANSMITS A STEADY STREAM OF CHARACTERS. 
3730 r) -§XZ-seeescenssssesesesssesssessss 
3731 3:@ TEST 21 
3732 83 SHRSHELSSSLRSSSEHASASSHEHSHEKLESAMACHRHAKSHSEHSSEAEROSLEHRESHDEKARBEHDRS 
3733 015404 0000046 TST21: SCOPE 
3734 015406 012737 000021 001122 Mov 021, $TSTNM sLOAD THE NUMBER OF THIS TEST 
3735 3 -- END O MACRO cseseseesssessessss 
3736 015414 012737 015742 001360 MOV @TST22 NEXT sPOINT TO THE START OF THE NEXT TEST 
3737 015422 012737 015720 001362 MOV 16% ,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
3738 3 SL INEUP - ccocecesesessesecesessssesssessss 
3739 3 -OMRESET - cesccccssessssssesssssssssss 
3740 0154350 104417 OCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 
3741 3 -- END O MACRO coseessececsesessces 
3742 015432 015701 001366 MOV PAR ,R1 sPICK UP 
3743 015436 012702 000001 MOV #1,R2 sPICK UP INIT POINTER 
3744 015442 001364 18 BIT R2,LINE sSHOULD THIS LINE BE SET UP ? 
3745 015446 1 BLQ 2s sNO 
3746 015450 010177 164576 MOV R1,EDZLPR SSET UP LINE PARAMETERS 
3747 015454 005201 2s: Inc R1 sPOSITION POINTER TO THE NEXT LINE 
3748 015456 106302 ASLB R2 sGOT ° AL ? 
3749 0 103370 ecc 1s VIF NO. GO SET UP THE NEXT LINE 
3750 015462 005037 001572 CLR SAVLIN sCLEAR LINE @ INDICATOR 
3751 3s -- END O MACRO cocessceesessessses 
3752 012702 000001 mov #1,R2 
3753 015472 052777 000040 164342 BIS ° sSTART SCANNER 
3754 015500 030237 001564 38: BIT R2,LINE sVALID L 
3755 015504 001462 BEQ 148 sMO SET UP NEXT LINE 
3756 015506 010277 164344 MOV Re, SOZTCR sSET T 
3757 015512 032777 000200 164322 4%: BIT ORDONE , SDZCSR 3S REC DONE = O ? 
3756 015520 001401 BEQ S$ sIF YES, ALLOW TIME FOR TROY TO SET 
3759 015522 104020 ERROR 20 s@REC DONE SHOULD = 0 
3760 015524 005005 S$: CLR RS 
3761 015526 032777 100000 164306 6%: BIT @TROY .GDZCSR 
3762 015534 001004 7% 
3763 015536 104414 OELAY 
3764 015540 105205 INCB RS 


3765 015542 001571 BNE 6% 


SEG 78 
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3766 015544 104005 ERROR 35 s@TROY FAILED TO SET! 
3767 015546 112777 O002S2 164312 7%: MOvB 0252 ,@DZTOR sLOAD CHARACTER 
015554 013705 001572 MOV SAVLIN,RS agen 8 en LINE @ 
3769 s- -SSSeeeeeeeasesesssssesesesasessasss 
3770 015560 105737 001571 TST8 MODE +1 3IS THIS TEST IN STAGGERED MODE? 
arte 015564 001406 BEQ 10% sIF NOT, SKIP STAGGERED SETUP 
3773 sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
3774 
3775 015566 006205 Boe RS 3sGET THE LAST @IT INTO THE CARRY BIT 
3776 015570 103402 6cs 6s VIF IT IS SET, 'GO CLEAR IT 
3777 015572 000261 SEC sIF IT IS CLEAR SET IT HERE 
3776 015574 000601 BR 98 sSKIP THE CLEARING 
3779 015576 000241 88: cic sCLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
3780 015600 006105 9%: ROL sR iGET THE NEW BIT BACK INTO RS 
3761 : -- END O MACRO seseceseseussssesss 
3762 015602 0003505 108: swe Sti sMOVE THE LINE NUMBER TO THE UPPER BYTE 
3763 015604 152705 000252 BIs8  #252,R5 3AD0 CHARACTER 
3764 015610 052705 100000 6Is @OVALIO,RS sADO DATA VALID 
3765 015614 005005 CLR RX 
015616 032777 000200 164216 11%: BIT @RODONE , EDZCSR 
3767 015624 001004 128 
3768 015626 104414 DELAY 
37869 015630 R3 
3790 015632 001571 ;, BNE 118 
3791 015634 1046004 ERROR 4 s@RDONE FAILED TO SET! 
3792 015636 017704 164204 128: MOV GOZRBUF ,R4 sLOAD THE V ACTUALLY RE 
3793 015642 020405 Cop R4, 8 ACTUAL VS EXPECTED. ARE THEY THE SAME? 
3794 015644 001401 BEQ 13% sIF YES. GO 00 THE NEXT LINE 
3795 015646 1 ERROR 6 8 ee og OID NOT 
3796 015650 104401 138: SCOP1 sCHECK TO IF TCH NINE IS SET 
3797 015652 040277 164200 148: BIC R2,GDZTCR sCLEAR TCR BIT FOR THAT 
3796 015656 005237 001572 158: Inc VLIN 3 Ae. 4 L 
3799 015662 013700 001572 MOV SAVLIN,RO 3SE T 
3800 015666 006300 ASL sMAKE THE OFFSET A POWER OF TWO 
3801 015670 106302 ASLB R2 8 LINE POINTER. ARE WE ALL DONE? 
015672 103302 ecc Ss sIF NO. GO AROUND AGAIN FOR NEXT LINE 
3803 015674 005003 CLR R3 sTHIS CODE HAS BEEN INSERTED 
3804 015676 104414 17%: DELAY sTO OETECT A PROBLEM FOUND IN FAULT 
3605 015700 105205 INCB RS s INSERTION. IF AN ERROR OCCURS MORE 
3806 015702 001575 BNE 17% 3 THAN ONE WORD WAS RECIEVED ON 
3807 015704 032777 000200 1641350 BIT @RDONE , BOZCSR sLINE 7. 
3806 015712 001401 BEQ 16% . 
38609 015714 104020 ERROR 
ae 015716 104400 168: ADVANCE 3GO TO NEXT TEST 
aoe sTIGHT SCOPE LOOP FOR THIS TEST. LOOP TRANSMITS CHARACTERS ONLY 
3614 015720 032777 100000 164114 16%: BIT @TROY ,@OZCSR sIS TRANSMITTER READY? 
3815 015726 001774 BEQ 163% 3IF NOT, WAIT FOR IT 
3616 015730 112777 000252 164150 MOvB #252 ,@DZTOR sLOAD THE CHARACTER 
3617 015736 104401 SCOP1 3LOOP AGIN IF SWO9*1 
ats 015740 000744 BR 14% sOTHERWISE, GO PICK UP THE TEST NORMALLY 


-$XZ-sessssesssusrssssssesssssases 
3621 peeesceceooosoooososesess TEST 22 seeceacecesesesesesesenesesess 





oo 
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| saze 1@ THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
3823 s@CHARACTERS (FLAG MODE AND THE RECEIVER RECEIVES (FLAG MODE) 
sae 1 CONE LINE AT A TIME BASED UPON VALID LIMES) 
3825 seTHIS IS THE FIRST TIME ae DATA IS CHECKED 
j 3826 t- -S8eeeescsesscecsseaacesasasase 
3827 s3:@ ©TEST 22 
38286 § § SCOHSSSSSSSSSSSSHSHHSS SHS SSSSHSSOHSSSHSSHSSHSSHSHSSSSSSSHOSC OSES 
3829 015742 000004 TST22: SCOPE 
— 015744 012737 000022 001122 ses 022, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 
1 t-- MACRO eccccecccesesccesses 
3832 015752 012737 016270 001360 MOV @TST23 , NEXT sPOINT TO THE START OF THE NEXT TEST 
3833 015760 012737 016074 001362 MOV 046 ,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
3834 3 SL INEUP - cccccccscvccesessesscsocsssssseses 
3835 3 - OMRESET - ccccccccccesccsesesssesesess 
3836 015766 104417 OCLASM sCLEAR DEVICE MOM SET MAINT BIT IF I MODE 
3837 3 -- END O MACRO coccecccccsccsseces 
3838 015770 013701 001566 MOV PAR RI sPICK UP PARAMETERS 
3839 015774 012702 000001 MOV @1,R2 sPICK WP INIT POINTER 
3840 016000 030237 001564 18; BIT R2 LINE sSHOULD THIS LINE BE SET UP ? 
3841 016004 001402 BEQ 2s i 
3842 016006 010177 164040 MOV R1,EDZLPR sSET UP LINE PARAPETERS 
3843 016012 1 2s: Inc Ri sPOSITION POINTER TO THE NEXT LINE 
3844 016014 1 ASLB R2 sGOT ‘EM AL ? 
3845S 0 103370 ecc 1s sIF NO, GO SET WP THE NEXT LINE 
3846 016020 005037 001572 CLR SAVL i sCLEAR LINE @ INDICATOR 
38647 s -- END O MACRO cecccccsscescesecses 
3848 016024 012700 001422 MOV @TDO RO sPOINT TO THE DATA AREA 
3849 0160350 ar CRO)> sCLEAR A DATA WORD 
3850 016032 001462 Cr @STOP ,RO sFINISHED ? 
3851 016036 001574 OE .-6 8 
3852 016040 005000 CLR 8 T 
38653 016042 015737 002046 001400 "OV OZROUF ,REGIST sSAVE FOR ERROR MSG 
3854 016050 012702 000001 MOV ° sLINE 
3855 016054 052777 000060 163760 BIS @MSENAB.GDZCSR START SCAMMER 
3856 016062 030237 001564 38; BIT R2, LINE sVALID LINE 
3857 016066 001465 BE@ 146 sNO SET UP NEXT LINE 
3856 016070 010277 163762 MOV R2,EDZTCR sSET TCR BIT 
3859 016074 032777 000200 163740 4%: BIT e@DZCSR ;:IS REC DONE - 0 ? 
3860 016102 001401 4 Yes, Ow TIME FOR TRDY YO SET 
3861 016104 104020 ERROR 20 s@REC DONE SHOULD = 0 
3862 016106 005005 S$; C.R RS 
3863 016110 032777 100000 163724 6%: BIT @TROY .@DZCSR 
3864 016116 0010046 BNE 7$ 
3865 016120 106414 DELAY 
3866 016122 105205 INCB RS 
38667 016124 001571 ONE 64 
38668 016126 104005 ERRCR 35 seTRDY FAILED TO SET! 
3869 016130 116077 001422 163730 7%: MOvB TOOC RO), BOZTOR }LOAD CHARACTER 
ae 016136 0135705 001372 MOV SAVLIN,RS ger Behe LINE @ 
s- -SSeeeccecesecessssssesaessssesesace 
3872 016142 105737 001571 TST6 MODE +1 sIS THIS TEST IN STAGGERED MODE? 
Ts 016146 001406 BEQ 108 sIF NOT, SKIP STAGGERED SETUP 
thy sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
3877 016150 006205 ASR RS sGET THE LAST BIT INTO THE CARRY BIT 


- 
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103373 


001422 


163622 


001422 
163610 


001372 
001372 


001362 


163634 


001122 
001360 


PAGE 80 SEQ 60 
CZDZA 0Z11 DEVICE OIAGNOSTICS. 
ecs 63 sIF IT IS SET, GO CLEAR IT 
SEC sIF IT IS CLEAR SET IT HERE 
a 98 sSKIP THE CLEARING 
68: cc sCLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
98; ROL RS 1GET THE NEW BIT BACK INTO RS 
3: -- END O MACRO seccccecceccsccececes 
108: SHAS RS sMOVE THE LINE NUMBER TO THE UPPER BYTE 
BIs8 TOOC RO) .RS sADO CHARACTER 
as o_o sAD0 DATA VALID 
118; BIT @RDONE , GDZCSR 
OME 126 
OELAY 
INC R38 
Ore 118 
ERROR 4 s@RDONE FAILED TO SET! 
128: MOV SOZREUF ,R4 sLOAD THE VALUE ACTUALLY RE 
Cr R4 RS sCOMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
BEQ 138 sIF VES, GO OO THE NEXT L 
ERROR 10M DATA/CONTENTS DID 
138: SCOP1 sCHECK TO SEE IF SuITCH SE 
Iwcs TDOC RO ) s INCREMENT BINARY PATTERN FOR THIS LINE 
Ore 4s sGO ‘ROUND AGAIN FOR NEXT CHARAC 
148; BIc R2,GDZTCR sCLEAR TCR BIT FOR THAT LIME. 
158: Inc VLIN sINC EXPECTED LINE 
OV SAVLIN,RO sSET UW CHARACTER OFFSET 
ASL se THE OFFSET A POMER OF TWO 
ASLB &2 SHIFT THE LIME POINTER. APE WE 
ecc 38 :IF NO. GO AROUND AGAIN FOR NEXT 
CLR LOCK sPAAKE SURE LOCK IS CLEAR FOR NEXT TEST 
3 - $XZ-cesscccesaccesesscsseusssseass 
pecocoocooososoooosoososoes TEST 23 secccescccoocoscoocescoocoesos 
seTHIS TEST WILL PROVE THAT EACH RECEIVING LINE CAN 
se@E DISABLED BY SETTING THE RCVON SIT TO ZERO 
seFOR EACH LINE IN THE LPR REGISTER. IT ASO 
seVERIFIES THAT MASTER CLEAR WILL ZERO DVALID FOR 
s@CHARACTERS STORED IN THE =. 
3 = -S@@GeGeeeeeeneeeeeseaeseceeaaana seca 
s:¢@ TEST 23 
| J OCCOOCESSESSSSSSSSESSEESSSESESSESESESEESSEOEEEEEESEEOEESESESECS 
TST23: 


023, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 


@TST24 , NEXT sPOINT TO THE START OF THE NEXT TEST 

CLRB OONFLG sINITIALIZE FOR FIRST TEST LOOP 
CLR SAVLIN sZERO LINE NO. FOR ERROR 
OCLASM VEXECUTE MAS MASTER CLEAR 
MOV PAR ,R1 sSTORE DEFAULT PARAMETERS 
RIC oR sCLEAR RCVON BIT 

16: MOV #1,R2 sINIT LINE POINTER 

2s: MOV R1,GDZLPR sLOAD LINE PARAMETER REGISTER 
INC Ri SET Ri FOR NEXT LINE 
ASLB R2 sSHIFT R2 TO NEXT LINE 
Bcc 2s sALL LINES LOADED? 


D7 
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3934 016346 012701 000252 MOV 252 .R1 1LOAD TRANSMITTING CHARACTER 
3938S O163S2 0135702 001564 MOV LINE ,R2 sCOPY ACTIVE LINE BITS 
3936 016356 010277 1635474 OV R2,G0ZTCR sLOAD TCR BI 
3937 016362 052777 000040 163452 eIs -GOZCSR SE 
3938 016370 005005 38: CLR sINIT OELAY COUNTER 
3939 016372 005777 165444 4s: TST @07CSR ’ SET? 
3940 016376 100404 Onl Sa IF BRANCH 
3941 016400 104414 OELAY sIF MOT THEN WAIT 

016402 IWC t INCREMENT’ DELAY COUNTER 
3943 016404 001572 Oe ay s0ELAY ? 
3944 016406 104005 ERROR sIF YES TARDY FAILED TO SET 
3945 016410 117705 1634350 S$: mOvVB sMOVE LINE WO. INT 
3946 016414 012703 000001 OV @1,R3 sINIT TCR 
3947 016420 042705 177770 eIc orC<7> RS sISOLATE L . 
3948 016424 001405 BE9 21 sIF LINE O LAG 
3949 016426 3 208; ASLB RS i RS TO NEXT TCR BIT 
3950 016430 OEC RS s0ECREMENT TL INTS 
3951 016432 001375 OE $ 370 CORRECT TCR BIT 
3952 016434 218: eIT R3,R2 sMAS THIS LINE BEEN SERVICED? 
3953 016436 001007 $ sIF NOT GO SEND CHARAC 
3954 016440 140377 163412 6Ics RS, GDZTCR sIF YES CLEAR TCR BIT 
3955 016444 001551 sIF MORE LINES SET BRANCH 
3956 016446 105737 001420 TST8 OONMFLG sIF ALL LOADED IS THIS SE 
3957 016452 001040 BE 126 sIF YES GRANCH TO SECOND PART OF TEST 
3956 0164354 BR 7$ sOTHERWISE CONTINUE WITH FIRST PART 
3959 016456 110177 1635404 6% MOvB R1,GDZTOR 3 TRANSMIT TER 
3960 016462 Bic RS.R2 1CLEAR FLAG FOR THIS LINE 
3961 016464 000741 BR 38 sGO WAIT FOR NEXT LINE 
3962 016466 005077 165364 78; CLR @0ZTCR sCLEAR TCR BITS 
3963 016472 005005 QR RS sCLEAR DELAY COUNTER 
3964 016474 106414 68: DELAY SWAIT FOR LAST CHARACTER 
3965 016476 005205 INC RS s INCREMENT DELAY COUNTER 
3966 016500 001375 ONE 8% IF NOT FINISHED CONTINUE WAITING 
3967 016502 105777 165534 TST8 @0zcsr sRDONE GIT SET? 
3968 100003 BPL 108 sIF NO CONTINUE 
3969 016510 005037 001572 CLR SAVLIN sIF VES SET LINE NO. TO ZERO 
3970 016514 104020 ERROR 20 ’ PRINT ERROR 
3971 016516 017704 163324 108: MOV GOZROUF ,R4 sREAD SILO 
3972 016522 100007 BPL 118 sIF OVALIO IS ZERO BRANCH 
3973 016524 000304 SWAB R4 sIF SET THEN 
3974 016526 704 177770 BIC @tC<7>,R4 sISOLATE LINE NO. IN RO 
3975 016532 010437 001372 MOV R4, SAVLIN sSET SAVLIN FOR ERROR REPORT 
3976 016536 104017 ERROR 17 sDATA VALID SHOULD NOT BE SET 
3977 016540 000766 BR 10% 1GO0 SILO AGAIN 
3978 016542 105237 001420 118: INCB DONFLG sPREPARE FOR SECOND PART OF TEST 
3979 016546 015701 0013566 MOV PAR ,R1 8 AULT PARAMETERS TO R1 
3980 016552 BR is 1GO LOAD LPR REGISTER 
3961 016554 005005 12%: CLR sINIT OELAY ER 
3962 016556 104414 13%: DELAY sWAIT FOR LAST CHARACTER 
3963 016560 005205 INC 170 BE IVED 
3964 016562 001375 BNE 136 sDELAY FINISHED? 
3965 016564 104415 DEVICE .CLR sIF YES EXECUTE MASTER CLEAR 
3966 016566 woP 
3967 016570 000240 NOP 
3968 016572 105777 163244 TST8 g0ZCSR sROONE SET? 
3969 016576 1000035 BPL 14% sIF NOT BRANCH 
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SEQ 62 

CZDZA-HO MACY11 SOA(105S2) 19-JUN-64 16:22 
CZDZAH.P11 19-JUN-64 15:45 CZ0ZA Of oevice SSIAGNOSTICS. 

3990 016600 005037 001572 CLR SAVLIN sIF YES THEN PRINT OUT 

3991 016604 104020 ERROR 20 sREPORT 

3992 016606 017704 163234 14%; MOV GOZRBUF ,R4 }READ SILO 

3993 016612 1000035 BPL 15% sDATA VALIO SET? 

3994 016614 005037 001572 CLR SAVLIN sIF YES THEN PRINT OUT 

3995 016620 104017 ERROR 17 sERROR REPORT 

3996 016622 15%: 

3997 

39986 g -6XZ-eecccnccsscesessasssesasssess 

3999 peecccocooooosoosococoass TEST 24 seenccecescoocooosssooseeeeess 

4000 s@THIS TEST WILL PROVE T: 

4001 3¢ THE TRANSMI "BREAK BIT” WORKS 

4002 3@ 2) THE RECEIVER CAN FLAG - 

4003 3¢ 3) THE RECE CAN FLAG “PARITY ERRORS” 

QOOe s@ONLY ONE LINE AT A TIME WILL BE EXERCISED 

4005 seTHIS TEST WILL NOT BE EXERCISED 

4006 s@CONNECTED BY AN H325, HS271, OR H3S190 CONNECTOR 

4007 5 -$XZ-eeaecesasessesessssssssssesss 

4008 3:@ TEST 24 

AGOS § § SSSSSHSSSEOOSSESESEED** WUSRHAARSSHSASSSOSRSSAASOESAEHHSARSHSESSHOKE 

4010 016622 000004 TST24: 

ae 016624 012737 000024 001122 Te, y 024, $TSTNM sLOAD THE NUMBER OF THIS TEST 

4013 0616632 012737 017100 001360 MOV @TST25 NEXT sPOINT TO - START OF THE NEXT TEST 

4014 016640 012737 016736 001362 MOV o3% ,LOCK sSET -OR L 

4015 016646 005737 001370 TST MODE ARE Me RUNCLING IN INTERNAL MODE? 

pass 016652 001510 BEQ 12% uF Oe a THIS TEST 

4018 016654 104417 OCLASM iCLEAR DEVICE AND SET MAINT BIT IF I MODE 

4019 ts -- END O — a ae 

4020 016656 015701 001366 MOV RL sPICK UP PARAMETERS 

4021 016662 052701 000300 BIS CODSP AR IPARITY.RL sFORCE ODO yo 

4022 016666 012700 000001 MOV #1,R0 sPICK UP INIT POINTE 

4023 016672 030037 0013564 18: BIT RO, LINE } SHOULD THIS LINE BE. SET UP ? 

4024 016676 001402 BES es sIF NOT.DON’T SET IT UP 

4025 016700 010177 163146 Mov R1,DZLPR sOTHERWISE, SET UP LINE PARAMETERS 

4026 016704 005201 2s: INC Ri 

4027 1 ASLB sGOT ‘EM ALL ? 

4026 016710 103370 ecc 1% 

4029 016712 005037 001572 CLR SAVLIN sCLEAR LINE @ 

4030 016716 012702 000001 MOV #1,R2 sLINE POINTER 

4031 016722 052777 000040 163112 BIS @MSENAB.GDZCSR ;:SET MASTER SCAN ENABLE 

4032 016730 013737 002046 001400 MOV OZRBUF , REGIST sSAVE FOR ERRR MESSAGE 

4033 016736 030237 001564 3%; BIT R2,LINE 

4034 016742 001446 BEQ 11% 

4035 016744 010277 163106 ' MOV R2,GDZTCR sSET TCR BIT 

4036 016750 110277 1635114 Move R2,GHDZTOR sSET BREAK BIT 

4037 016754 112777 000377 163104 4%; Move @377,@DZTOR sLOAD CHARACTER 

— 016762 013705 001572 MOV SAVLIN,RS ger 8 teehee DATA 

4040 016766 105737 001371 TSTB MODE +1 11S THIS TEST IN STAGGERED MODE? 

om 016772 001406 BEQ 7$ sIF NOT, SKIP STAGGERED SETUP 

4043 ;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


4045 016774 006205 ASR RS sGET THE LAST BIT INTO THE CARRY BIT 
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017074 


017100 
017102 


017110 


017116 
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000004 
012737 
012737 


104417 
013701 
012702 


106437 
113777 


130000 


090025 
017410 


001366 
000001 
0013564 
162710 


001372 


030306 
001364 


163014 


001122 
001360 


162670 


F7 
SEQ 85 
CZDZA 0211 DEVICE SOIAGNOSTICS. 
6cs S$ sIF IT IS SET, GO CLEAR IT 
SEC sIF IT IS CLEAR SET IT HERE 
BR 63 SKIP THE CLEARING 
S$: CLC sCLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
6%: ROL RS sGET THE NEW BIT BACK INTO RS 
3 -- END O MACRO ceececcccecesesscss 
78: S88 RS sPUT LINE NUMBER IN UPPER BYTE 
os GOVALID!PARER!FRMERR RS sADO EXPECTED 
88: BIT GROONE, @0ZCSR 
BNE 98 
DELAY 
INC BS 
BNE 8% 
ERROR 4 os ay FAILED TO SET! 
98: MOV GOZRBUF ,R4 
Cor R4 RS CMP ee VS EXPECTED. DO THEY MATCH? 
BEQ 108 sIF YES, GO CLEAN WP 
ERROR 6 s@DATA/ es FAILED TO COMPARE 
10%: CLRB @OZTOR sCLEAR BREAK BITS 
SCOP1 sLOOP? 
118: INC VLIN sINC LINE @ 
BIC R2,G0ZTCR SCLEAR TCR BIT 
ASLB R2 
Bcc 3¢ 
12%: CLR LOCK sMAKE SURE LOCK IS CLEAR FOR NEXT TEST 
3 2 gle a baneetenreatenr ae ta ms ea 
t- -Secesesssesscesssesaessasassss 
poeoscsosoososososoesesos TEST 25 oo ana ree gen ea capa 
3¢ THIS TEST VERIFIES THAT THE DEVICE _ — 
s@WMILE THE PROCESSOR STATUS IS SET EXACTL 
1eT0 WHAT THE 0Z11 PRIORITY IS SET TO. 
s@DEFAULT PRIORITY IS AT pO pea 
i - -SGSeGeGeeaesesecaeseeseaeesaeasesaeaseces 
3:@ TEST 25 
a3 ge "9" aa 6 gs esa i ee mamma ee ine aint 
TST25: 


025, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 


MOV @TST26 NEXT sPOINT TU THE START OF THE NEXT TEST 
Fee rertanninageDmememneeee 
OCLASM SCLEAR DEVICE AND SET MAINT BIT IF I MODE 
3s -- END O MACRO sesseseccesessseses 
MOV PAR ,R1 sPICK UP PARAMETER 
MOV #1,R2 sPICK UP INIT POINTER 
1%: 2M ~- ace, — THIS LINE BE SET UP ? 
MOV R1,GDZLPR sSET UP LINE PARAMETERS 
2s: INC R1 1POSITION POINTER TO THE NEXT LINE 
ASLB R2 sGOT ‘EM ALL ? 
ecc 1$ sIF NO, GO SET UP THE NEXT LINE 
CLR SAVLIN SCLEAR LINE @ INDICATOR 
s -- END O MACRO seeeceessessssessss 
MTPS @00ZPRT sSET CPU STATUS TO 0Z11 PRIO, 
MOVB LINE ,@OZTCR sENABLE THE VALID LINES 
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017166 38; 


017166 012777 06% ,GOZTIV 
017174 012777 
013777 


017202 
017210 013777 MOV OZPRT ,GOZT TER INTERRUPT PRIORITY 
017216 05277 nes @TIE!MSENAB,GDZCSR ,ENABLE THE DEVICE 


CLR RS 
BIT @TROY .GOZCSR 
BEQ S$ 


- SINTSET - cescecessscccsssesesccssesss 


8s 
AY 
ie) 
&t 
2. s@TRDY NOT SET! 
10 s@TRANSMITTER SHOULD NOT INTERRUPT 
(SP )+,CSP)+ sPOP FOR FAKE RTI 
6s sCONTINUE TEST 
12 s@RECEIVER SHOULD NOT INTERRUPT 
(SP )+,CSP)> sPOP FOR FAKE RTI 
@TIE ,@OZCSR gee I pete TTER INTERRUPT ENABLE 
ts - -Seesecesecessssssesasssssass 


#11¢ ,@0ZTIV sSET UP THE TRANSMITTER INTERRUPT VECTOR 
#12¢ ,@DZRIV T VEC 


el oe 


040000 
017374 


@ 
Lind 
oO 


$833 


OZPRT ,GOZRIS T THE 
OZPRT , GOZTIS TRANSMITTER INTERRUPT PRIORITY 
@RIE!MSENAB,.GOZCSR ; ENABLE THE DEVICE 

3s -- END O MACRO eseceeseecessessses 

“ey TOO, GOZTOR sPUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER 
9%: @RDONE , BSOZCSR 

BEQ 10% 
Nop 
Nop 
BR 
DELAY 


13% 


RS 
9$ 


& 

13% 

10 

(SP )+,CSP)+ 
13% 


s@NO RX DONE! (NOT SET) 
TES 


sCONT TEST 
12 s@RECEIVER SHOULD NOT INTERRUPT 
CSP )+,CSP)+ sPOP FOR FAKE RTI 


ICE.CLR sISSUE DEVICE CLEAR (RESET) 


MACRO seceesesesssssesess 
MACRO seseesene.:sesesssss 

3 ea aceasta ea 
peoeecesccooooooososooosoe TEST 26 seescccecescccsecossoseseseess 


PBAE 


oom 
< 








CZDZA-HO 
| CZDZAH.P11 


017410 
017412 


017420 


H7 
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001122 
001360 


162242 


162222 
162250 


PAGE 35 
CZDZA Odi DEVICE DIAGNOSTICS. 


s THIS TEST VERIFIES THAT THE DEVICE DOES INTERRUPT 

THE PROCESSOR STATUS IS SET TC EXACTLY 
V0ONE_L LEVEL LOWER THAN THE 0711. 0211 Age = 
seDEF AULT TO LEVEL S MINUS ONE LEVEL IS LEVEL 4 


u 2 §XZ-cccccccccccccccccsccccccccess 


s:@ TEST 26 
a aie oT aa ee 
3 
aes 026, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 
t-- scecesessscssesssas 
MOV @TST27 NEXT ny TO THE START OF THE NEXT TEST 
3 -SMRESET - cecccesccsssasessesssesssess 
OCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 
3 -- END O MACRO ceesccesecseccesssss 
MOV PAR ,R1 sPICK UP PARAMETERS 
MOV #1,R2 sPICK UP_INIT POINTER 
18: 24 — — THIS LINE BE SET UP ? 
MOV R1,EDZLPR 1SET UP LINE PARAMETERS 
2t: INC sPOSITION 7 oe TO THE NEXT LINE 
ASLB R2 sGOT ‘EM AL ? 
ecc 1$ sIF NO, GO SET UP THE NEXT LINE 
CLR SAVLIN sCLEAR LINE @ INDICATOR 
s -- END O MACRO ceescesesesssseseses 
MTPS @eLESS1 sMAKE CPU ONE LEVEL LOWER THAN 0Z11 
- MOvB LINE ,@DZTCR sENABLE THE VALID LINES 
3 -SIMTSET -secccccecssesescosssessesess 
MOV 06% ,@OZTIV sSET UP THE TRANSMITTER INTERRUPT VECTOR 
MOV 07% ,GOZRIV sSET UP THE RECEIVER INTERRUPT VECTOR 
MOV en sSET THE INTERRUPT VECTOR STATUS 
MOV OZPRT , GOZ sSET TRANSMITTER INTERRUPT PRIORITY 


BIS OTIE!MSENAR. *sozcsa sENABLE THE DEVICE 
3 -- B10 0 MACRO, eesescesessasssasss 


RS 
4%: BIT — -@0ZCSR 


BEG 
moe 
NOP 
— i s@TRANSMITTER FAILED TO INTERRUPT 
5%: DELAY 
INC RS 
BNE 4s 
— .. s@TRDY NOT SET! 
6%: sREMOVE THE INTERRUPT FROM THE STACK 
BIC @TIE ,@0ZCSR 100M T LET ANY MORE INTERRUPTS OCCUR 
MTPS @@LESsi MAKE CPU ONE LEVEL LOWER THAN 0211 
BR 6s IRE TURN TO THE NORMAL FLOW 
7%; ERROR 12 s oRECEIVER Sone NOT INTERRUPT 
SP)+,CSP)-+ :POP FOR FAKE RTI 


CMP ¢ 
8%: BIC @TIE,@OZCSR sRESET TRANSMITTER INTERRUPT ENABLE 


3 -8 SET -seesssuscescessseseasessssss 


OV #116 ,@0ZTIV sSET UP THE TRANSMITTER INTERRUPT VECTOR 


CZDZA-HO 
CZDZAN.P11 


17 
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012777 
013777 
013777 
052777 


113777 
005005 


103370 


162106 


000027 001122 
020370 001360 


PAGE 86 SEQ 86 
CZOZA O2i1 DEVICE DIAGNOSTICS. 
MOV #12¢ ,GOZRIV sSET UP THE RECEIVER INTERRUPT VECTOR 
MOV OZPRT ,GOZRIS sSET THE INTERRUPT VECTOR STATUS 
MOV OZPRT ,GOZTIS sSET TRANSMITTER INTERRUPT PRIORITY 
BIS ORIE!MSENAB,GOZCSR ; ENABLE THE DEVICE 
: -- END O MACRO sececesececcceccses 
TOO, BOZTOR sPUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER 
9%: BIT @RDONE , BOZCSR 
BEQ 10% 
NoP 
NOP 
— abe s@RECEIVER FAILED TO INTERRUPT 
108: DELAY 
INC RS 
BNE 9$ 
ERROR 4 s@NO RX DOME! (NOT SET) 
BR 13% sCONTINUE TEST 
118: ERROR 10 s@TRANSMITTER SHOULD NOT INTERRUPT 
cre (SP )+,CSP)+ {POP FOR FAKE RTI 
BR 13% ; TEST 
12%: PoPesP sREMOVE THE INTERRUPT FROM THE — 
ae CLR @OZCSR DON’ T ALLOW ANY MORE INTERRUPTS 
OEVICE .CLR sISSUE DEVICE CLEAR (RESET) 
3 -- END O MACRO cocesceescscceseses 
3s -- END O MACRO ceceseccecescaseses 
g -8XZ-ceerccessescscessssssssssesess 
peoocccosoosssooooooosssos TEST 27 secessesesosesesoooosoosssosss 
seTHIS Le «| VERIFIES THAT THE RECEIVER WILL 
s@ T BEFORE THE TRANSMITTER EVEN 
s@THOUGH THE TRANSMITTER WAC ENABLED 
seFIRST. SET PS TO LEVEL 7; 
seGET ROONE AND bag TO SET; 
s@SET TX IE AMD RX IE; 
s@CLEAR PS AND EXPECT RX pt eee FIRST 
t- -Seeececcccacassssssessssssss 
s:@ TEST 27 
H é Se et a aoe cee 
: 
a. 027, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 
t-- seessecsecesessasss 
MOV @TSTSO,NEXT sPOINT TO THE START OF THE NEXT TEST 
Pe amasinanehanaameceeeeenaee 77 
- SARESET - eeccceccececccecesesesssseass 
OCLASM }CLEAR DEVICE AMD SET MAINT BIT IF I MODE 
3 -- END O MACRO ceccccccssccesscess 
MOV PAR ,R1 sPICK UP PARAMETERS 
MOV #1,R2 sPICK UP INIT POINTEF 
1%: BIT R2,LINE sSHOULD THIS LINE BE SET WP ? 
BEQ es sNO 
MOV R1,GDZLPR sSET UP LINE PARAMETERS 
26: INC R1 sPOSITION PCINTER TO THE NEXT LINE 
ASLB R2 sGOT ‘EM AL ? 
Bcc 1s sIF NO, GO SET UP THE NEXT LINE 


J7 
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4270 020006 CLR SAVLIN sCLEAR LINE @ INDICATOR 
4271 -- END 0 MACRO secececesesesessaces 
4272 020242 MOV sSETUP INTERRUPT STUFF 
4273 020020 : 
4274 020026 Q ' 

Seuse MOV @0zTI 


4275 ' 

4276 020042 161772 

4277 MOV R2 sLINE POINTER 
4278 rj INE sVALID LINE ? 


4279 


35632222 


sSET TCR BIT 


“4 
w 
-_~ 


sRECEIVER 
sRECEIVER DONE BIT SHOULD NOT BE SET 


apegsags 


sWAIT FOR TROY 
36R IF READY 
sSTALL TIME 

: 


sTROY FAILED TO SET 


Be 


4280 
4261 
4262 
4263 
4284 
4265 
4206 
4267 
4268 
4269 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4296 
4299 


Sepak 


gRRER 


s@RDONE FAILED TO SET! 
sTRANS DONE BIT = 1 ? 


3sYES 
5 3@NO TRANS DONE FAILED TO SET 
sNOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT =1 
3SET INTERRUPT ENABLES AND WATCH THE FUR FLY 
BIS @TIE ,@OZCSR 

I @RIE , BOZCSR 
MTPS te) 


ERROR 7 s@¢TRANSMITTER FAILED TO INTERRUPT 

ERROR 11 s RECEIVER FAILED TO INTERRUPT 
sCHECK BR LEVEL 

JP 13% 3GET OUT 


sRECEIVER INTERRUPT ROUTINE 
MOV SOZRBUF ,R4 s ACTUAL 
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010403 
000303 

177770 

001371 


161476 
161520 


002100 161512 
161510 


000004 
012737 
012737 


104417 
013701 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 
MOV R4,RS 
SWAB R3 
BIC otC<7>,R3 sSTRIP JUNK 


3 -$STAG-ccevcesescccesscsssssssesssesssssss 
TSTB MODE +1 sIS THIS TEST IN STAGGERED MODE? 
BEQ 11% sIF NOT, SKIP STAGGERED SETUP 


sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


sGET THE LAST BIT INTO THE CARRY BIT 
sIF IT IS SET, GO CLEAR IT 

sIF IT IS CLEAR SET IT HERE 

sSKIP —. 


CLEARING 
sCLEAR THE CARRY BIT i) = OF LINE PARITY) 
1GET THE NEW BIT BACK INTO R 


R3,SAVLIN sIS THTS A VALID LINE 


04 

15 

@tC<377> ,R4 
RS ,R4 


“ys 
R2,.GDZTCR 


HE INTERRUPT VECTOR FROM THE STACK 
BR 13% 160 GET OUT OF INTERRUPT MODE 
ti INTERRUPT SVC ROUTINE 


sTHE RECEIVER INTERRUPT = 

+70 OVERRIDE THE TRANSMITT 
POP2sP ’ THE INTERRUPT VECTOR FROM THE STACK 
= @TIE!RIE,GDZCSR ;CLEAR T ENABLES 


INTERRUP 
OZRIS,GOZRIV sRESTORE TRAPCATCHER 
CLR eO0zZRIS 
MOV OZTIS,@0Z7IV 
CLR @ozTIs 
-$XZ-secesssesessssessssesessssess 


peoeecocosossouessososseess TEST 30 seseeseacesescesecescesesasesse 


s*TEST TO VERIFY THAT ‘ROONE DOES NOT SET 


4 -$XZ-seesseseseesesesessassssseses 


3:¢ TEST 3O 
} sPSRSRSSSSSSSSSESSESESESESEEEESESESEEEEEESESEEEERESETESEEEEEESES 


TST3O: 
030, $TSTNM sLOAD THE NUMBER OF THIS TEST 


3 -- END O MACRO seescecsesesessssss 
MOV @TST31 NEXT sPOINT TO THE START OF THE NEXT TEST 
3 SLINEUP - eseccsesesessesessesssesessssssss 
3 -$MRESET -sesesescecsassassessssssesss 
OCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 
3 -- END O MACRO seeeseceasessessess 
MOV PAR .R1 sPICK UP pong ee 
MOV #1,R2 sPICK UP INIT POINTE 
1%: BIT R2,LINE sSHOULD THIS LINE BE. SET UP ? 


— 
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4362 020424 001402 BEQ 2s sNO 
4383 020426 010177 161420 MOV R1,GDZLPR sSET UP LINE PF IAMETERS 
4384 020432 005201 2s: INC Ri sPOSITION POINIER TO THE NEXT LINE 
4385 020434 106302 ASLB R2 sGOT ' L ? 
4386 020436 103370 occ 18 sIF NO, GO SET UP THE NEXT LINE 
4387 020440 005037 001572 CLR SAVLIN SCLEAR LINE @ INDICATOR 
ryey. s -- END O MACRO cocesesescescesesss 
4389 020644 052777 000040 161570 6is —! @O0ZCSR , TURN 
4390 020452 012702 000001 MOV ° R2 sINIT LINE COUNT 
4391 020456 030237 001564 38: BIT Hy LINE sFIND A VALID LINE 
4392 020462 001004 BNE ae IF WE FOUND ONE GO TO TEST 
4393 020464 005237 001572 INC SAVLIN sIF NOT 
4394 020470 106302 AUB sKEEP LOOKING 
4395 020472 000771 BR 3¢ 
4396 020474 110277 161556 4t: MOvB R2, @OZTCR ;SET TCR BIT 
4397 020500 005005 CLR RS 
4396 020502 005777 161534 58: TST @0ZCSR sIS TROY SET 
4399 020506 100404 BMI 6% sCON’T TESTING IF IT IS 
4400 020510 1046414 DELAY 3IF IT NOT WAIT A WHILE 
4401 020512 INC RS 
4402 020514 001572 BNE 5% 
4403 020516 1940035 ERROR 5 3WE WAITED LONG ENOUGH-ERROR 
4404 020520 042777 000040 161514 6%: BIC @MSENAB, GDZCSR ; TURN 
4405 020526 105077 161534 CLRB @0ZTOR s TRANSMIT A CHARACTER 
4406 020532 005005 CLR RS i 
4407 020534 104414 78: DELAY sWAIT SUFFICIENT TIME FOR 
4406 020536 005205 Inc RS sRDONE TO SET 
020540 001575 BNE 7% 
4410 020542 032777 000200 161272 BIT @ROONE. GOZCSR ;RDONE SET 
4411 020550 001401 BQ 6s sIT SHOULDN'T BE-CONTINUE 
4412 020552 104020 ERROR 20 VIF IT IS THERE'S AN ERROR 
Sens 020554 104400 68: ADV ANTE wn 
s- -SSeeeceeesssssesessssssessass 
441s poeccccsooosoooosesesosos TEST 3] seceseeccsesessocosososesssess 
4416 s*THIS a gi ag ~ | OVERRUN AND SILO ALARM 
4417 3s@ONE LINE A TIME - BASED UPON VALID L 
4418 oa chan OF THE FIRST 16 CHARS ARE SENT: SILO ALARM IS 
4419 seTESTED T THE 16TH 
4470 eEXPECTS SILO ALARM TO SET. THEN 
ASO} s@SILO IS FILLED AND IS EXPECTED ON THE 65TH 
4402 ’ OuT OUT 
4405 s@USING SWITCH NINE FOR THIS TEST SENDS 20. 
Aad 3@0N OZ LINE PREVIOUSLY TNUOUSLY eae Swo9-1. 
4425 8 SCOPE SILO ALARM PULSES, ETC. 
ASG 3 -$XZ-secessesesssssesssssssessssas 
4427 3:@ TEST 31 
4428 FY 3 SOOHSSSSHSASSSSSSSHSHSSHSHSSSSSSHSHSHSSSASSSSSSESSSESSESSSEESESS 
4429 020556 000004 TSTS1: SCOPE 
— 020560 012737 000031 001122 —, $TSTNM sLOAD THE NUMBER OF THIS TEST 
s-- seesssssecssssssess 
4432 020566 012737 021304 001360 MOV @TST32,NEXT sPOINT TO THE START OF THE NEXT TEST 
4433 020574 012737 021210 001362 MOV #166 ,LOCK sSET FOR LOOP 
8434 ernie rr iy 
4435 SMRESET - sesecesesscssssecessasessass 
4436 020602 104417 OCLASM SCLEAR DEVICE AND SET MAINT BIT IF I MODE 


s -- END O MACRO seescesesecssssssss 








‘ape aera netic aan an eae a Rents eel etre eRisl~rient aerate are miei man ab nara 
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CZDZA-HO 
CZDZAH.P31 


020604 
020610 
020614 


MACY11 SOAC105S2) 19-JUN-64 16:22 PAGE 90 
19-JUN-64 15:45 CZDZA 0211 DEVICE DIAGNOSTICS. ‘1 

013701 001366 PAR ,R1 sPICK UP PARAMETERS 

012702 000001 MOV @1,R2 sPICK UP INIT POINTER 

pony od 001364 18: 2 ol sSHOULD THIS LINE BE SET UP ? 
4 

010177 161224 MOV R1,GOZLPR sSET UP LINE PARAMETERS 

005201 2s: Inc sPOSITION Shag ee TO THE NEXT LINE 

106302 ASLB sGOT ‘EM AL ? 

103370 ecc 1s IF NO, GO SET UWP THE NEXT LINE 

005037 001572 CLR SAVLIN sCLEAR LINE @ INDICATOR 

3 -- END O MACRO cececccecessesesses 
012700 001422 MOV @TDO ,RO sPOINT TO | DATA AREA 
CLR CRO)+ sCLEAR A DATA WORD 
001462 Cr @STOP .RO sFINISHED ? 
001374 BNE .-6 sNO 
CLR RO sCLEAR OFFSET 

012702 000001 MOV #1,R2 POINTER 

052777 010040 161152 BIS @MSENAB!SILOEN,@DZCSR ;START SCANNER € SET SILO ENABLE 

030237 001364 38: BIT ° sVALID LINE? 

001002 ONE 6 sYES 

000137 021172 JP 4 sTRY NEXT LINE 

013700 001372 MOV SAVLIN,RO sMAKE OFFSET 

ASL sMAKE POWER OF 

010277 161142 MOV R2,GDZTCR sSET TCR BIT 

105777 161122 at: TSTB SR sREC OOME = 1 ? 

100001 BPL .04 

104020 ERROR 20 sREC DONE SHOULD NOT = 1 

005003 ar R3 sSET CHARACTER COUNT 

S$: CLR fread, 

032777 100000 161104 6%: BIT @TROY , SDZCSR 

001004 BNE 

104414 OELAY 

1 INCB R4 

001371 BNE 68 

104003 ERROR 5 s@TROY FAILED TO SET 

116077 001422 161110 7%: MOVE TOOCRO),@DZTOR ;LOAD A CHARACTER 

001422 INC ) sSET UP NEXT CHARACTER 

020327 000017 Cr R3,015 316 CHARACTERS ? 

103006 BHIS 

032777 O20000 161044 BIT @SILOAL,@DZCSR ;SILO ALARM = 0 ? 

001401 EQ -¢ ; 

1040135 ERROR 15 s@SILO ALARM SHOULD NOT = 1 
sUNTIL 16. DATA CHARACTERS 

000411 BR 10% 

8s: CLR ial 

032777 O20000 161026 9%: BIT @SILOAL ,@DZCSR 

001004 ONE 

104414 DELAY 

INC Ra 

001371 BNE 9% 

104014 ERROR 14 s@SILO ALARM FAILED TO SET! 
sSILO ALARM SHOULD °1 AFTER 16. 
sDATA CHARACTERS 

005203 108: INC R3 sINC CHAR COUNT 

022703 000102 chp 066. .R3 sFINISHED SENDING CHARACTERS ? 

001334 ar 4 sNO 
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SEQ 91 
MACY11 3SOA( 1052) 19-JUN-64 16:22 PAGE 9 
19-JUN-64 15:45 CZDZA 0Z11 DEVICE DIAGNOSTICS. 
104414 OELAY 
105204 INCB 
001375 BNE .-4 
sNOW LETS READ THE SILO 
013705 001372 MOV SAVLIN,RS ger Bo teens LINE @ 
s- -SeSeecescessesessessesssssssesssass 
105737 001371 TSTB MODE +1 sIS THIS TEST IN STAGGERED MODE? 
001406 BEQ 13% sIF NOT, SKIP STAGGERED SETUP 
sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
006205 ASR RS sGET THE LAST BIT INTO THE CARRY BIT 
103402 ecs 118 VIF IT IS SET, GO CLEAR IT 
000261 SEC sIF IT IS CLEAR SET IT HERE 
000401 BR 12% sSKIP THE CLEARING 
000241 118: cic sCLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
006105 12%: ROL RS 1GET THE NEW BIT BACK INTO RS 
t-- END O MACRO ceeecsesesesseseces 
000305 Sia RS sPUT IN UPPER BYTE 
052705 100000 BIS @OVALID RS 1800 DATA VALID 
017704 160740 148: MOV SOZRBUF ,R4 
Cop R4 RS FACTUAL VS. EXPECTED 
001401 BEQ 15% sYE 
1 ERROR 6 seOATA/CONTENTS ~~ NOT COMPARE 
032777 020000 160720 15%: BIT @SILOAL ,@OZCSR iSILO ALARM= 0 
001401 BFQ 16% 3 YE 
104016 ERROR 16 | READING OZRBUF DID NOT CLEAR SILO ALARM 
168: INC RS sUP TER 
7 000077 Ceres RS, 063. sLAST SILO CHAR ?....64TH CHAR 
101762 6LOS 14% 
INC RS 3AD0 1 MORE FOR THE CLOBBERED CHAR 
052705 BIS @OVRRUN RS sADD OVERRUN TO EXPECTED 
120527 000101 CMPB RS, 065. sLAST CHARACTER ? 
001754 BEQ 14% 
017704 160670 MOV GOZRBUF ,R4 sFOR GOOD MEASURE 
005704 TST RA sDATA VALID SHOULD = 0 
100001 BPL 17% YES 
104017 ERROR 17 ;DATA ag & SHOULD = 0 
040277 160666 17%: BIC R2,80ZTCR sCLR TCR BIT 
104401 SCOP1 sLOOP? 
005237 001372 228: INC SAVLIN rINC EXPECTED LINE 
106302 ASLB R2 sNEXT LINE 
103402 BCs .*6 sNO 
000137 020670 JP 3% sYES 
104400 ADVANCE 3GO TO NEXT TEST 
s TIGHT SCOPE LOOP FOR THIS TEST. SENDS 20. CHARACTERS 
3s0N OZ LINE PREVIOUSLY SELECTED vy! mapemend WHILE SWO9=1. 
sUSED TO SCOPE SILO ALARM PULSES, ETC. 
052777 010040 160624 16%: BIS yom wy th. aan @0ZCSR sSETUP DEVICE 
012777 021274 160652 MOV €20% ,@O0ZTIV sSETUP TRANSMITTER VECTOR 
012737 000024 001216 MOV #20. , $TMPO 3s TEMPORARY COUNT OF CHARACTER BURST 
050277 160620 BIS R2,@0ZTCR VENABLE LINE 
052777 040000 160576 BIS #TIE,@OZCSR sENABLE INTERRUPTS 
106427 000000 MTPS 40 sLOWER PRIORITY 
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SEQ 92 
CZDZA -HO MACY11 SOAC 1052) 19-JUN-64 16:2 AGE 92 
CZOZAM.P11 19-.UN-64 15:45 CZ0ZA O21 oevice OIAGNOSTICS. 
4550 021250 000001 196; WAIT tALLOW INTERRUPTS 
4551 021252 005337 001216 OEC oo ee co ALL CHARACTERS SENT? 
4552 021256 001374 BME 199 17 FOR MORE 
@SSS 021260 042777 050040 160554 Bic OSILOEN! MSENAB! T erésn's RESET SILO COUNTER, CLEAR STROBE 
$54 021266 104401 SCOP! sLOOP_AGAIN? 
4555 021270 000137 021164 JP 178 ‘IF wie RETURN TO WHERE YOU LEFT OFF 
4536 021274 112777 000252 160564 20%: MOvB 252, 0ZTOR sSEMD A CHARACTER 
= 021302 000002 RTI on MORE CHARACTERS TO COME 
@ a: -Seeeseacsessecsacasesessecasse 
6359 peococesoeccosooooooosoosos TEST $2 eecccescccocecosocoscesossoses 
4560 seTHIS TEST THAT “SILO ENABLE” IT 
4561 s@RECEIVER INTERRUPTS AND THAT ON THE 
aSé2 106TH CHAR THAT “SILO ALARM” WILL CAUSE AN 
4563 seINTERAUPT WITH “RIE” SET. 
4564 seTMIS WILL 00 ALL SELECTED LINES ONE AT A TIPE. 
4565 ' pg -OX%Z- cecenccccsececesessscsssassese 
4566 s:¢ TEST 32 
4567 § § CL SSSOSEAMSDECSEDSESHSCSHHSHS SASS SES OASSHSHHS HG SSHHSOASHHTEHSESHHDOOOS 
4568 0213504 000066 TSTS2: SCOPE 
= 021306 012737 000032 001122 eet 032, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 
t-- MACRO scccceceseseesssces 
4571 021314 012737 021666 001360 MOV OTSTSS NEXT sPOINT TO THE START OF THE NEXT TEST 
4572 021322 012737 021410 001362 MOV —-@3#, LOCK sSET FOR LOOP 
4573 ye lex? ceunenneaguemenlaaneeemeet -o 
4574 - SARESET - ccccecceccscscsssssesscasess 
4S75 021330 104417 OCLASM SCLEAR DEVICE AMD SET MAINT BIT IF I MODE 
4576 s -- END O MACRO coccecccecesssesess 
4377 021332 015701 001366 mov PAR Ri sPICK UP PARAMETERS 
4376 021336 012702 000001 MOV @1,R2 sPTCX \© INIT POINTER 
43579 021342 001364 18%: BIT R2, LINE sSHOULD THIS LINE BE SET WP ? 
4380 021346 1 &f@ sNO 
4361 0213550 010177 160476 Ov R1,EDZLPR sSET UP LINE PARAMETERS 
4362 021354 1 2s; Iwc Ri sPOSITION POINTER TO THE NEXT LINE 
4363 021556 106302 ASLB R2 sGOT ‘EM AL ? 
43564 021360 1035370 ecc 1% sIF NO, GO SET UWP THE NEXT LINE 
4365 021362 005037 001372 CLR SAVLIN sCLEAR LINE @ INDICATOR 
4525 s -- END O MACRO cecececcscescesseses 
4367 021366 012700 001422 MOV @TDO RO sPOINT TO THE DATA AREA 
4308 021572 ar (RO)> sCLEAR A — wORD 
43569 021574 O01 46.2 cP @STOP ,RO FINISHED ? - 
4390 021400 001574 ONE .-6 
4391 021402 005000 CLR SCLEAR OFFSET 
021 012702 00000 MOV #1,R2 sLINE POINTER 
43593 021410 012777 021630 160454 53$: OV 011% ,@OZRIV 1SET + lh waeetenatios INTER. 
4594 021416 012777 000340 160450 Ov 


@PR7 ,EDZRIS ie wore 


4395 021424 052777 010140 160410 6Is OMSENAB ! SILOEN!R 

455 PRT SCANNER € SET SILO ENABLE 
4597 021432 030237 001564 BIT R2,LINE WALID LINE? 

4398 021436 001002 BRE .%6 Ss 

4599 021440 000157 021646 JP 226 sTRY NEXT LINE 

4600 021444 005777 160376 TST SOZRBUF sEMPTY THE SILO 

4601 021450 100775 OMI .-4 s0R IF DATA VALID IS SET! 
4602 021452 106427 000000 MTPS e0 sSET PROCESSOR PRIORITY TO O 
4603 021456 0135700 001572 MOV SAVLIN,RO sMAKE OFFSET 

4604 021462 006300 ASL RO sMAKE POWER OF TWO 

4605 021464 010277 160366 MOV R2,GDZTCR sSET TCR BIT 
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4606 
4607 


4609 
4610 
4611 
4612 
4615 
ee14@ 
a6is 
4616 
4617 
4618 
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46.20 
462) 
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78: 


108: 


118: 


12s: 
178: 


22%: 


at hr SgRR 
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PME 9 
CZOZA 0211 OEVICE DIAGNOSTICS. 


fa 
tt -@0ZCSR 


S$ 
012% ,@DZRIV 
@TROY ,GOZCSR 


7 -6 
— -GDZTOR 
@SILOAL ,@DZCSR 
108 


seTROY FAILED TO SET 
sLOAD A CHARACTER 

1SET UP NEXT CHARACTER 

315 CHARS YET? 

sSILO ALARM = 0 ? 


VES 
s@SILO ALARM SHOULD NOT = 1 
sUNTIL 16. DATA CHARACTERS 


sSET NEW VECTOR 
sREADY FOR 16T4 CHAR 


sLOAD THE 16TH CHAR. 


s@SILO ALARM FAILED TO SET! 
sSILO ALARM SHOULD °1 AFTER 16. 
ably CHARACTERS 

$ 


ean ALARM MOT INTERRUPTING. 
IME TEST. 


FAKE RTI 
sRX SHOULD NOT INTERRUPT 
sCONT 


IME 
sGO0D INTERRUPT TO HERE. 
sCLR TCR BIT 


sCLEAR TIGHT LOOP FOR NEXT TEST 
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340 


19- JUN-64 PAGE 94 
CZDZA 0Z11 DEVICE DIAGNOSTICS. 


001122 
001360 


022472 


16:22 


D8 


-§XZ-eeccecccccansscasesassassascss 


3 
peoeecoocococoooscooooocos TEST $3 eocccesesccocccceseseccceseoss 


seTHIS TEST RUNS ALL LINE 
s@BASED UPON QUALIFIED LINES 

16, THIS IS AN INTERRUPT TEST ON THE RECEIVER AND 
TRANSMITTER 


S FUL 


t -$XZ-eacecscccassasessacaseeasasss 


bE SROSSSSHSSHMAREHSESEASEHSMSHSHHAS}LOHASSHSHEHSAHHLSHSSSHHESASHHAHARSESSDE 


sLOAD THE NUMBER OF THIS TEST 
eae TO THE START OF THE NEXT TEST 


SMRESET - ccccccesasececassssssesssses 


SCLEAR DEVICE AND SET MAINT BIT IF I MODE 


sSET IMAGE OF TCR BITS 
sPICK UP PARAMETER 

ssPICK UP INIT POINTER 
sSHOULD THIS LINE BE SET UP 


NO 
1SET UP LINE PARAM REGISTER 


= ‘EM ALL ? 

| 

sCLEAR TRANS DATA POINTER € REC POINTERS 
sFINISHMED ? 

3sWO. CONTINUE CLEARING 

sSET UWP REC INTR VECTOR 

sSTATUS 

3SET UP TRANS INTR VECTOR 

sSTATUS 


sSET MASTER SCAN ENABL 
sSET TCR BITS...UP UP AND 
sALLOW INTERRUPTS 


AWAY ! 


sSET FOR DELAY 


sWAIT FOR ALL RECIEVERS TO FINISH 
q 


s@TRANSMITTER FAILED TO INTERRUPT 
s@RECEIVER FAILED TO INTERRUPT 


3° 
s:¢@ TEST 33 
TSTSS: 
O33, ¢TSTNM 
3 -- END O MACRO cocceccecececescese 
MOV OTSTS4 NEXT 
OCLASM 
: -- END 0 MACRO eeccececececcecsess 
MOV LINE ,RXTCR 
RSTART: MOV PAR ,R1 
MOV #1,RO 
INIT: 6IT oLINE 
BEQ 
MOV R1,GDZLPR 
18: INC Ri 
ASLB RO 
ecc INIT 
MOV @TDO.,.RO 
INITi: CR CRO)« 
cr @STOP ,RO 
BNE INIT1 
MOV @RXSVC , AOZRIV 
mov @PR7, 
MOV @TXSVC ,GDZT 
MOV @PR7 ,GOZTIS 
BIS Te. 
BIS @TIE,GOZCSR 
BIS .8OZCSR 
MOVB LINE ,GOZTCR 
MTPS $$1 
SNAP: CLR $ 
67%: MOV OLYCNT , (PC )« 
68%: fe] 
OEC 68% 
BNE .-4 
TST6 RXTCR 
BNE 38 
A a id OuT 
3%: INC 66% 
BNE 67% 
ERROR 7 
ERROR i1 
JP FINI 
665: 0 


sTRANS INTR SVC ROUTINE 
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022116 
122 
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157720 


157712 
177770 


001372 
000001 


001364 


001422 
001422 


157644 


157622 
157616 


177770 
001372 
020000 


070000 


001372 
001442 


001442 
177400 


157666 


157570 


SEQ 95 
CZOZA 0211 DEVICE DIAGNOSTICS. 
TXSVC: oa @O0ZCSR sTRANS INTR ? 
.* 
ERROR s@TRANSMITTER FAILED 
MOVE @OZCSR RS sSAVE IT 
sNOW TEST FOR LINE @ ETC 
BIC @tC<7>,R3 sSTRIP JUNK 
MOV RS RO s SAVE 
MOV R3,SAVLIN sADJUST LOCATION FOR ERROR PRINTOUT 
MOV #1,R2 sSET UP POSITION POINTER 
38: OECcB R3 sIS IT THIS LINE ? 
OMI as sVES 
ie Go iP THE LINE @ 
8R 3% 3GO ‘ROUND AGAIN 
4%: BIT R2,LINE iVALID LINE? 
BNE 04 sVeSs 
ERROR 10 }NO, INVALID LINE!!! 
ASL oa MAKE POWER OF 2 
MOvVB TOOCR4),G@DZTOR ;LOAD CHARACTER 
INCB ) 3SET UP NEXT CHARACTER 
CHE sLAST CHARACTER ? 
BIC R2,EDZTCR sYES .CLEAR TCR BIT 
58: RTI 
sREC INTR SVC ROUTINE 
RXSVC: a eoecen sREC DONE ? 
.* 
ERROR 4 sFALSE INTERRUPT 
MOV GOZRBUF ,R4 sSAVE IT 
MOV R4 RS 
Se hB ae 
BIC @tC<7>, RS sSTRIP JUNK 
MOV R3,SAVLIN sSAVE LINE NUMBER 
BIT @SILOAL.@DZCSR ;SILO ALARM? 
BEQ ° sNO 
&eROR 3SILO ALARM SHOULD NOT #1 
TST omy sO0ATA VALIO SET? 
@MI 04 sVES 
ERROR 23 sYOU LOSE ...DATA VALID WAS'NT SET 
ct 1 amanatheaien tata 
ERROR sRECEIVER ERROR FLAG/S WERE SFT 
MOV @1,R2 3SET UP POSITION POINTER 
S$: CECB ge 
OMI 66 
ASL Re sRE POSITION POINTER 
Ba eT | 3GO ‘ROUND AGAIN 
6%: BIT R2,LINE sLINE VALID ? 
BNE of sYES 
ERROR VINVALID L LINE @ 
MOV SAVLIN,RS sGET THE LINE NUMBER AGAIN 
ASL sUSE R3 AS A POINTER IN THE DATA TABLE 
CMPB TROCRS),R4 s00ES THE DATA CHARACTER COMPARE ? 
BEQ 2s sYES 
MOV TROCRS),RS sSAVE EXPECTED 
BIC @tC<377>,R4 ;CLEAR JUNK 
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SEQ 9% 
CZDZA-H0 MACY11 SOA(1052) 19-JUN-864 16:22 PAGE 
CZDZAM.P11 19-JUN-64 15:45 CZDZA 0Z11 DEVICE SDIAGNOSTICS. 
4762 sR2 = LINE @ BY POSITION 
4763 3R4 © ACTUAL DATA 
area sRS © EXPECTED DATA 
4765 022344 104005 ERROR s@NO, DATA DOES NOT COMPARE 
4766 022346 0052635 001442 2s: INC TROCRS) SET UP FOR NEXT CHARACTER 
4767 022352 105763 001442 TST6 TROCRS) ;ALL CHARS DONE? 
4768 0622356 001002 BNE 
4769 022360 040237 022472 BIC R2,RXTCR sZERO LINE DONE INDICATOR. 
4770 022364 012716 022044 MOV CSP) sRESET THE BACKGROUND TIMING LOOP 
4771 022370 RTI 
4772 
4773 
4774 sFINISH UP ROUTINE 
4775 022372 106427 000340 OUT: PR? sSTOP ALL INTERRUPTS 
4776 022376 1044135 OEVICE.CLR sCLEAR ALL INTERRUPTS AWAY 
4777 022400 CLR 3 
4778 022402 7 001372 CLR SAVLIN 
4779 022406 012702 1 MOV #1,R2 
4780 022412 030237 001364 18: BIT ol sVALIO LINE ? 
4761 022416 001405 BEQ H 
4762 022420 022763 000400 001442 ChP @400, TROCRS) sRECEIVED A BINARY COUNT PATTERN ? 
4783 022426 001401 BEQ 04 sYES 
4764 022430 104027 27 i THE LINE to TO RECEIVE A FUL 
4765 sBINARY COUNT PATTERN 
47806 022432 005237 0013572 2s: INC SAVLIN SSET UP FOR NEXT LINE 
4787 022436 0057235 TST CR3)> sAD0 2 
4788 022440 106302 ASLB Re 1SET UP NEXT LINE POINTER 
4789 022442 103365 ecc 1s sFINISHED ? 
4790 022444 FINI: 
4791 022444 013777 002074 157420 MOV OZRIS,GDZRIV sRESTORE TRAPCATCHER 
4792 022452 157416 CLR 
4793 022456 013777 002100 157412 MOV OZTIS ,@O0ZTIV 
4794 005077 157410 CLR @ozTIs 
4795 022470 104400 ADVANCE 3GO TO THE NEXT TEST 
poe 022472 000000 RXTCR: O sRX IMAGE OF TCR BITS 
4798 
4799 § -OXZ-sesccesecesecasesesansessssss 
4800 peeeccccooosoososoosoooes TEST 34 socccccscccsssssscooesesssesss 
4601 3@0Z11 RELATIVE T ° 
4802 5 SELECTED LINE WILL IN TURN RUN 16. CHARS 
4803 s¢AT ALL BAUD RATES AND THEN THE HIGHEST BALD 
4804 s@WITH ALL CHAR . EACH NEW PARAME 
4805 s@DECREASE IN TIME FROM PARAMETERS SELECTED 
4806 seTME TIME IS CHE T THE LAST PARAMETER USED 
4807 thon 3 A LOWER — IS EXPECTED ON PARANETER 
4806 5 
4809 s¢ EIGHT BITS/PER/CHAR - TWO STOP BITS AT 
4810 s¢ SO, 75, 110, 134.5 » 600, 1200, 1800, 2000 
48il 1e 2400, 3600, 4800, AUD. 
4812 se THEN, 9600 BAUD - TWO STOP BITS AT 
4813 36 SEVEN, SIX, FIVE BITS/PER/CHAR. 
4614 s@AF TER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS 
= s¢THE WEXT SELECTED LINE = oe TESTED. 
t = -@eeeeneecaeeanaeseacesesaecaeasaaace 


TEST 34 
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4616 
4619 


SSSSSRERERRRSRSRGRA RAR SCEESESSERS ESSE REECE SER ERSEERES 


022474 
022476 


022504 
022512 


MACY11 a 19-JUN-64 
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000034 


02 
001370 


023202 
177770 
000007 
001374 
023202 
001422 
001462 


001220 
001224 


023202 
157170 


G8 


16:22 PAGE 9 


CZDZA 0211 DEVICE DIAGNOSTICS. 





SEQ 97 


TSTS4: SCOPE 
ses 034, ¢TSTNM sLOAD THE NUMBER OF THIS TEST 
-- eeesceneassassesscea 
MOV 02, ¢TIMES 
MOV @TSTSS NEXT sPOINT TO THE START OF THE NEXT TEST 
mov $$ ,LOCK sSET FOR LOOP 
CLR sRESET THIS VAR 
CLR SAVLIN sRESET LINE NUMBER 
CLR gg: 8 THIS WORD TO TELL WHAT LINE TRANSMITTED 
MOV sUSE STHPO AS A BIT POINTER 
MOV enEVONt $50 EIGHT! TuOSTOR. 7¢ s@UILD PARAMETERS 
18: BIT THPO,,LINE sIS THIS LINE ACTIVE? 
BNE 3 HIF SO, GO GET STARTED 
2s: MOV @RCVON! S30 1EIGHT! TWOSToP 7$ got PARAMETERS TEMPORARILY 
MOV —- @TO0, RO 10 THE DATA AREA 
CLR CRO)-+ SCLEAR A DATA WORD 
Cep @STOP ,RO ONISHED ? . 
6NE .-6 phed 
INC XMTLIN }POINT TO THE NEXT LINE TO TRANSMIT 
BIC o7,7% sMAKE SURE TEMPORARY PARAMETERS POINT TO 0 
BIS § AMTLIN.7¢ SDD DESIRED LINE NUMBER 
CLR OFFSET 
ASLB ¢THPO sPOINT TO LA any LINE 
ecc is sPROCESS THE NEXT LINE 
- ADVANCE s TEST TO SEE IF THES TEST GETS REPEATED 
- (ARESET - ceccensacesecsesesesssssesss 
OCLASM ICLEAR DEVICE AND SET MAINT BIT IF I MODE 
3s -- END O MACRO coesececseceseseses 
BIC @RCVON, 78 sZERO PARAMTERS FOR = LINE 
MOV 78, @DZLPR sLOAD PARAMTERS FOR T 
TST MODE s STAGGERED? 
BPL 1008 8 
cic sSET UWP LINE 
ROR 7$ 8 
Bcc 965 30R IF LINE WAS EVEN 
cic sPREPARE TO MKE LINE EVEN 
BR tT) sCONT 
986%; SEC sPREPARE TO MAKE LINE 000 
99%: ROL 7% sSET ALTERED LINE 
100%: BIS @RCVON, 78 sSET * 
MOV 7¢,GDZLPR sLOAD RX PARAMETERS 
MOV 7¢,SAVLIN sADJUST LUCATION FOR ERROR PRINTOUT 
BIC @tC<7>,SAVLIN }STRIP JUNC 
Bic 78 sCLEAR OLD LINE @ 
BIS IN,7 sSET LINE UP AGA 
Mov 7¢ REGIST sSAVE PARAMETERS FOR PRINTOUT 
MOV @TOO0 ,RO sPOINT TO THE DATA 
CLR CRO)+ sCLEAR A DATA WORD 
CoP @STOP ,RO sF INI 
BNE .°6 i NO 
CLR R2 SUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
CLR RS sUSE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS 
CLR ¢TMP1 sINITIALIZE THE TIMER 
CLR $TMPS sINITIALIZE THESE BITS ALSO 





H8 
CZDZA-HO MACY11 SOAC 1052) 19-JUN-64 16:22 PAGE 96 
CZDZAM.P11 19-JUN-64 15:45 CZDZA 0Z11 DEVICE DIAGNOSTICS. 


€20, XMTCNT :SET HOW MANY CHARACTERS TO TRANSMIT 
OXMTSRV, GOZTIV 
@RXISR1, GOZRIV 
CZPRT, GOZRIS 
OZPRT.GOZTIS 
$TMPO.GOZTCR § ,START THE VALID LINE 
OTIEIRIETHSENAB, @0ZCSR 
a ;LOMER THE PRIORITY TO ALLOW INTERRUPTS 
@RIE ,GOZCSR }IS ROUTINE ? 
S$ WHEN AL Is DONE RX IE IS CLEARED IN ISR. 


8 
sCONTINUE TEST 
sO0UBLE COUNT 
} CONTINUE TEST 
sINTERRUPTS NOT FINISHED 


: 
apagggag =i 


Ra 
o-4 


ab gngRgRx 


SisaesasbSeSSERESS3S35 
™ 
o 


cep 
BNE 
BIT 

489 BEQ 
SUB 
BR 
ADO 
BR 
° 


3 -SPARTST -seseccecssssccsessssssssssessass 
§ -$XZ-eecccencecesessasesasesssasss 
seoeesecesososoosososesoss TEST 35 seceecesesosessoseceseseessess 
T VERIFIES THAT EVEN PARITY WORKS 
OOD LINES SELECTED AND THAT ODD PARITY WORKS FOR ALL 


SELECTED. 
MAIN FUNCTION OF THIS TEST IS TO VERIFY 

s@THAT “PE” (PARITY ERROR) CAN BE BY 

s@THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 

s*YOU ARE IN “STAGGERED” MODE. 

3#40(6) CHARS ARE USED FOR THIS TEST. 

reALL SELECTED LINES WILL BE ENABLED 

AT THE SAME TIME! 


3:@ TEST 35 
| J OSSSSSSSOESSEESEEESOESEOEESEEESEEESEEEDEEEEEESEEEEEEEEEEEEEEESE 


TST3S: 
035, $TSTNM sLOAD THE NUMBER OF THIS TEST 
s -- END O MACRO ceeseesscsssseseces 
MOV @TST36,NEXT sPOINT TO THE START OF THE NEXT TEST 
TST MODE sIS THIS STAGGERED MODE? 
BPL 63 NOT, DON’T DOO THIS TEST 
- (MRESET - coccccccccccccceccecescssces 
OCLASM SCLEAR DEVICE AND SET MAINT BIT IF I MODE 
3s -- END O MACRO secesesescessssssss 
013701 MOV PAR ,R1 sUSE R1 TO BUILD any bh TO BE LOADED 
042701 000200 BIC @ODDPAR ,R1 sMAKE SURE ODD PARITY ISN'T SET 


8 -$XZ-esesesesesesesessassesssssses 





18 


SEQ 99 
CZDZA-HO MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 99 
CZO0ZAH.P11 19-JUN-64 15:45 CZO0ZA 0211 DEVICE DIAGNOSTICS. 
4930 023242 052701 000100 BIS @PARITY Ri sMAKE SURE PARITY IS TURNED ON 
4931 023246 012702 000001 MOV #1,R2 sUSE R2 AS A LINE PO 
4932 023252 0350237 001364 1%: BIT R2,LINE sIS THIS A VALID LINE? 
4933 023256 001411 BEQ 3% IF NOT, SKIP TO THE NEXT LINE 
4934 023260 000001 BIT @BITO,R1 sIS THIS LINE AN OOD L 
4935 023264 001002 sIF IT'S OOD, USE EVEN PARITY 
4936 023266 052701 000200 BIS @ODDPAR ,R1 sIF IT'S EVEN, USE OOD PARITY 
4937 O23272 010177 156554 2%: MOV R1,@OZLPR sLOAD THE LINE P TER ISTER 
4938 023276 042701 000200 BIC @ODDPAR ,R1 sSET UP THE NEXT PARITY TO EVEN 
4939 023302 005201 3%: INC sPOINT TO THE NEXT 
4940 023304 106502 ASLB sMOVE THE BIT POINTER IN R2 TO THE - wt LINE 
4941 023306 105361 Bcc & sIF WE'RE NOT DONE, GO io 
4942 023310 005037 001572 CLR SAVLIN sCLEAR THE LINE NUMBER INDI 
4943 023314 005002 CLR R2 sUSE R2 TO COUNT TOTAL OF TRANSMISSIONS 
4944 023316 005037 0246352 CLR COUNTO s ss2-10-64 ECB REV I 
4M4S 02 005037 (24634 CLR COUNT1 s 32-10-84 ECB REV I 
4946 0235326 005005 CLR sUSE RS TO COUNT TOTA. NUMBER OF RECEPTIONS 
4947 023330 012737 000040 001376 MOV 040, XMTCNT é T A BINARY COUNT PATTERN( 00-40 
4948 023336 012700 001422 MOV @TDO ,RO sPOINT TO THE DATA AREA 
4949 0235342 CLR CRO)+ 8 A DATA WORD 
G2 S344 001462 cr @STOP ,RO sFINISHED ? 

4951 023350 001574 BNE .- sNO 
492 023352 CLR RO sCLEAR OFFSET 
4953 3 -SINTSET-cescesceescesccssesessssssss 
4954 023354 012777 024636 156514 MOV @XMTSRV.GDZTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
4955 023362 012777 024460 1 MOV @PARESE ,GOZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 
4956 023370 0135777 030306 156476 MOV OZPRT ,GOZRIS sSET THE INTERRUPT VECTOR STATUS 
4957 023376 015777 156474 MoV OZPRT ,GOZTIS sSET TRANSMITTER INTERRUPT PRIORITY 
penn 02 3408 040140 156430 no's @RIE! TIE!MSENAB,.GDZCSR , ENABLE THE DEVICE 

s-- MACRO seececseseseaeseses 
4960 023412 115777 001364 156436 MOvVB LINE .@DZTCR sENABLE ALL SELECTED LINES 
4961 023420 106427 000000 MTPS o0 sALLOW INTERRUPT 
4962 023424 032777 000100 156410 5%: BIT ORIE ,@OZCSR sWHEN RX DONE; RIE WILL =0 
4963 023432 001410 BEQ 6% 38R IF ALL DONE 
4964 02354064 104414 OELAY s ss 2-10-64 ECB REV I 
4965 023436 005237 024652 INC COUNTO 
4966 023442 102770 6vS S$ 
4967 023444 105237 024634 COUNT1 
4968 023450 100365 BPL 5% 
4969 023452 104011 ERROR 11 s@RX FAILED TO FINISH (INTERRUPT) 
4970 023454 104400 6%: ADVANCE sADVANCE LOOP 
4971 : -- END O MACRO seescesesessesssess 
4972 3 -SPARTST -ceccscccesesesesscssssasasssssss 
4973 g ~6XZ-cevcsescccccesssscesssassesss 
4974 poosccocosososososoooosos TEST 36 seeccsaceseseosoosesoosssossss 
4975 s¢THIS TEST VERIFIES THAT OOD PARITY WORKS FOR ALL OOD LINES 
4976 3@ SELECTED AND THAT EVEN PARITY WORKS FOR ALL EVEN LINES SELECTED 
4977 3 THE TION OF THIS TEST IS TO VERIFY 
4978 s@THAT “PE” (PARITY ERROR) CAN BE FL BY 
4979 s@TME UARTS. THIS TEST WILL NOT BE DONE UNLESS 
4960 YOU ARE IN “STAGGERED” MODE. 
4961 3#40(6) CHARS ARE USED FOR THIS TEST. 
4962 s@ALL SELECTED LINES WILL BE ENABLED 
4963 s@AT THE SAME TIME! 


aS684 p -$XZ-secsseccscsceseccesesesssesss 


4965 s:@ TEST 36 





CZDZA-HO 
CZOZAH.P11 


023456 
023460 


023466 
023474 
023500 


J8 


MACY11 wr 19-JUN-64 16:22 PAGE 1 
19-JUN-64 15:4 


000036 


023730 
001370 


001122 
001360 


001376 


SEQ 100 
CZDZA 0211 DEVICE DIAGNOSTICS. 
PEMEKEKEHEASSESSEEHEEHAETHEGHESROGHATSHEAEGALOHERSHESSHSEASAMHAHH 
TST36: OPE 
MOV 036, $TSTNM sLOAD THE NUMBER OF THIS TEST 
: -- END 0 MACRO seeececcesseseseses 
MOV @TSTS7 NEXT sPOINT TO THE START OF THE NEXT TEST 
TST MODE sIS THIS STAGGERED MODE? 
BPL 6% sIF NOT, DON’T DO THIS TEST 
3 -$MRESET -ceccescsesssscesesssssasesas 
OCLASM sCLEAR DEVICE AND SET MAINT BIT IF I MODE 
: -- END O MACRO cececesecsecesacces 
MOV PAR, R1 sUSE Ri TO BUILD PARAMETERS TO BE LOADED 
BIC @ODOPAR .R1 sMAKE SURE ODD PARITY ISN‘T SET 
BIS @PARITY,R1 sMAKE SURE PARITY IS TURNED ON 
MOV #1,R2 sUSE R2 AS PO 
1%: BIT R2,LINE sIS THIS A VALID LINE 
a sIF NOT, SKIP TO THE NEXT LINE 
BIT @BITO,R1 sIS THIS LINE AN 00D 
BEQ sIF IT’S EVEN, USE EVEN PARITY 
BIS @ODDPAR ,R1 sIF IT’S OOO, USE ODD PARITY 
2s: MOV R1,@DZLPR sLOAD THE LINE PARAMETER REGISTER 
BIC @ODDPAR ,R1 sSET UP THE NEXT PARITY TO EVEN 
3$: XNC Ri sPOINT TO THE NEXT LINE 
R2 sMOVE THE BIT POINTER IN R2 TO THE NEXT LINE 
Bcc 1$ sIF WE'RE NOT DONE, GO CHECK THE NEXT LINE 
CLR SAVLIN sCLEAR THE LINE NUMBER INDICATOR 
CLR R2 sUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
CLR COUNTO s ss2-10-64 ECB REV I 
CLR COUNT1 s 332-10-64 ECB REV I 
CLR R3 sUSE RS TO COUNT TOTAL NUMBER OF RECEPTIONS 
MOV @40 , XMTCNT a T A BINARY COUNT PATTERN( 00-40) 
MOV oRO sPOINT TO THE DATA AREA 
CLR RO)+ i A DATA WORD 
chp @STOP ,RO sFINISHED ? 
BNE “ sNO 
CLR RO sCLEAR OFFSET 
3 -SINTSET-ceseeesessscesesesesasanesss 
MOV @XMTSRV,GDZTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
MOV @PARESE,GOZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 
MOV OZPRT ,GOZRIS sSET THE INTERRUPT VECTOR STATUS 
MOV OZPRT , GOZTIS sSET TRANSMITTER INTERRUPT PRIORITY 
BI @RIE! TIE !MSENAB.GDZCSR , ENABLE THE DEVICE 


MOVE LINE ,@OZTCR sENABLE ALL SELECTED LINES 
0 sALLOW INTERRUPT 
S$: BIT @RIE , GOZCSR sWHEN RX DONE; RIE WILL =0 
BE 6% sBR IF ALL DONE 
DELAY s ss 2-10-64 ECB REV I 
INC COUNTO 
BvS S$ 
INCB COUNT1 
BPL S$ 
ERROR 11 s@RX FAILED TO FINISH (INTERRUPT ) 
6$: ADVANCE sADVANCE LOOP 


3s -- END O MACRO sesesesessesssessss 





CZDZA-HO 

CZOZAH.P11 
5040 
$041 
S042 
5043 
5045 
5046 
5047 
5049 
5050 
$051 
5053 


Beeet 


BSRERES US Soa susSSek CRE REReSURURUNOR 


REBEL 


oe 


MACY11 oo ae 19-JUN-64 


19-JUN-64 1 


177777 


000133 


16:22 


PAGE 1 


K8 


CZDZA 0211 DEVICE DIAGNOSTICS. 


-$XZ-sescesscesseessssssssasssssss 


‘ 
peoeenseseoaceosssossosooe TEST 37 enessecececoccecesesesessseses 


FOR EITHER A KWilL OR KW11P. 


THIS TEST ADDED IN ORDER TO TEST CRYSTAL 
IF EITHER IS AVAIL. 


~ THEN THE TEST IS RAN. IF NEITHER AVAILABLE, THEN TEST IS NOT RAN. 


16-JUN-84 


ABLE AND NOW TEST ant. LINES AT ALL BAUD RATES 


@ ADDED NUMBERS IN TT 
te INSTEAD OF JUST LINE © AT ALL BAUD RAT 


3 -$XZ-seescssssssessssesssssssessss 


8 i SOHHSSHSSSHSAASSHSSSSS SSS SSSHSSHHSOSHSSSEHSHESESSEEHSESSEESEEEE 


3:@ TEST 37 
TST37: SCOPE 
MOV 

s -- ENDO 
mov 

MTPS 

MOV 

Mov 

MOV 

MOV 

MOV 

CLR 

CLR 

MOV 

BR 

108: CMP 
MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BR 

20%: CoP 
Mov 
ADY 
CLKSRV: INC 

RTI 
CCOUNT: .WORD 
BCOUNT: .WORD 
: .WORD 


: 


037, $TSTNM 
@SE0P ,NEXT 
0 

804 ,RO 
010% , 804 
0177546,R1 


@CLKSRV , 801 
@340 , 80102 
BCOUNT 


CCOUNT 
#100,(R1) 


TCCONT 
(SP)+,CSP)+ 
20% , 804 


@-1,2(R1) 


#133,(R1) 
TCCONT 
(SP)+,CSP)+ 
RO, 804 


CCOUNT 


ooo 


sLOAD THE NUMBER OF THIS TEST 


sPOINT TO THE END-OF -PASS HANDLER 


sOROP PRIORITY TO 0 

sSAVE CONTENTS OF LOCATION 4. 
1SET TO TRAP IF NOT KW11L 
sGET om ADORESS. 


sSET Fi ° 
{PRORITY 7 ON INTERRUPT. 

OUR OWN CLOCK TICK COUNTER 
s CHAR pete 


SENT 
ITHIS WILL CAUSE A BOMB TO OCCUR IF 
sTHE KW11L DOES NOT EXIST 
:BUT IF ITS THERE, THEN WE'RE STARTED. 
ISTART TEST 


sREADJUST STACK 

sSET TO TRAP IF NO KW11P 
sSET FOR INTERRUPT. 
:PROITY 7 ON INTERRUPT. 


ADORESS. 
sSET THE @ OF COUNTS FOR INTERRUPT (1) 
sNOTE, IF KwW1iP = EXIST, THEN 


S PLACE. 
ENABLE .UP COUNT ,REPEATED 
AND RUN. 
ISTART TesT. 
sREADJUST STACK, NO CLOCKS AT ALL! 
sRESTORE LOCATION 4 
3GET OuT. 


sCLOCK INTERRUPTS TO HERE, UPDATE COUNT. 
s THEN EXIT. 


s INCREMENTED BY CLKSRV. am TICKS. 
1USED BY TCCONT AS TIME 
sUSED BY TCCONT AS TIMER. 





CZDZA-HO 
CZ0ZAH.P11 


MACY11 3OAC1052) 19-JUN-64 16:22 PAGE 
CZOZA 0211 CEVICE 


19-JUN-64 15:45 


024104 
177750 024106 


L8 


102 
OIAGNOSTICS. 


3° 
3 THESE NUMBER WHERE WORKING GREAT ON A PDP-11/24 RUNNING AT 60 HERTZ 


$ 


z 
3 
3 


: 
i 


3 

; SO 

3 AT 9600 BALD 
3; THE 

ge 


S.6 vs 


eee SS Sons Oa on 3 bane 


a 
: 


: 


SuSE) EEE AE: 


geass sasss sss 


RREEE REESE 
atl Hiatt eee 
FEEEE HEEEE BE 


mage 
aS 
“4 
B§ 
a3 
s> 

4 


i 


ag 
BE 


une ER Ea 
Hn 


S353 8 
SEES 555 


SuSEE HU0EE HU03: 

geeee geeee eeeee 

aaaa3 93993 33333 
: 


é 
g 
48RBRR 


; 


sRESTORE LOCATION 4. 
sSTART WITH LINE CLOCK AT ZERO COUNT 
3350-16MS LOOPS TO WAIT 








ee M8 


SEQ 103 
CZDZA-HO MACY11 3OA(1052) 19-JUN-84 16:22 PAGE 103 
CZDZAM.P11  %9-JUN-84 15:45 CZDZA 0211 DEVICE IOTAGNOSTICS. 
S1S2 024224 005737 024104 108: TST CCOUNT ;WAIT FOR COUNT TO GO TO 1 TO AVOID 
S1S3 024230 001010 BNE 208 USING THAT DANGEROUS FIRST COUNT! 
5154 024232 005237 024110 INC DCOUNT s;8UT AS A SAFE GUARD, 
SisS 024236 001372 BNE 108 1DON'T HANG HERE 
5156 024240 005237 026106 INC 
5157 024244 001367 BNE 108 
$158 024246 005011 CLR (RL) :CLEAR CLOCK 
5159 024250 104400 ADVANCE ;CLOCK NOT WORKING RIGHT- ABORT TEST 
5160 1NOT THE FAULT OF THE 02! 
sis 
ns 
5163 ; START XMITTING CHARACTERS TO ALL 6 LINES AT ALL BAUD RATES. 
5164 ; IF THE NUMBER OF CHARACTERS TRANSMITTED IS BETWEEN THE 
5165 ; TWO NUMBERS IN TTABLE THEN THE LINE IS OK, ELSE ERROR 
1 3 
5167 
$168 024252 012777 000050 155562 20%: MOV #50, @DZCSR :SET MSE AND MAINT. 
S169 024260 012700 000030 MOV @30,RO 1SET BAUD RATE SO, 8 BIT CHAR LEN 
5170 024264 012703 000001 HOV 01,R3 }MOLDS CURRENT LIME, START AT LINE 0 
S172 024270 110377 155562 30$:  MOVB &3,@0ZTCR ;ENABLE THE NEXT LINE TO XMIT 
5173 024274 012702 024112 MOV OTTABLE .R2 GET TABLE OF EXPECTED RESULTS 
S175 026300 010077 155546 40¢: MOV RO, GDZLPR }UPDATE THE BAUD RATE AMD NEXT LINE 
5176 304 005037 024106 CLR BCOUNT }REUSE TIMER AS XMIT CHAR COUNTER 
3177 024310 005037 024104 CLR CCOUNT :CLEAR CLOCK INTERRUPT 
S179 026314 022737 000074 024104 SOs: chp 60. ,CCOUNT 100 THIS LOOP. FOR 60 CLOCK TICKS 
024322 001413 6EQ 608 EXIT WHEN THAT OCCURS. 
5161 155512 TST gOZCSR }READY TO XMIT A CHAR? 
5182 026330 100371 BPL S08 iO, WAIT 
S183 024332 112777 000101 155526 MOVB 0101, SDZTOR IXMET A CHAR 
5164 024340 024106 INC BCOUNT }UPOATE XMIT COUNT, SHOULD NOT OVERFLOW. 
S185 026344 102363 vc 50¢ IF NO OVERFLOW, CONTINUE 
5186 024346 005011 CLR (Ri) 1IF OVERFLOW, CLOCK COULD BE BAD, CLEAR IT 
5187 024350 104400 ADVANCE ABORT THIS TEST IF CLOCK 10-2.° 
5169 024352 023712 024106 608 CHP BCOUNT, (R2) :IF COUNT < LOW 
5190 024386 103422 BLO 708 , 
5191 026360 023 024106 000002 CHP BCOUNT,2(R2) IF COUNT > HI 
5192 366 101016 BHI 7 ERROR 
5193 0246370 062 000400 ADO x sNEXT RATE 
5194 024374 062702 000004 ADO GET NEXT PAIR OF 
5195 024400 022702 024206 CHP GENDTTB RZ sHIT END OF TTABLE 
5 024404 001335 BNE ¢ NO, CONTINUE TESTING THIS LINE 
5197 024406 007400 Ic #7400,RO }ORING THE BAUD RATE BACK TO SO 
5198 024412 005200 INC :AMD GET NEXT LINE 
5199 024414 106303 ASLB ORS }MOVE ONTO THE NEXT LINE 
S200 024416 103324 Bcc 308 IF NOT DONE WITH ALL LINES THEN CONTINUE 
$201 024420 005011 CLR (Ri) ELSE STOP CLOCK 
5202 024422 104400 ADVANCE ;AMD 00 THE NEXT TEST 
5204 F 
5205 ; ERROR - COUNTER NOT IN THE RANGE OF THE NUMBERS IN TTABLE 
3 


N8 


SEQ 104 


MACY11 3SOAC 1052) 19-JUN-64 16:22 PAGE 104 
19-JUN-84 15:45 


005011 
011237 
0162 


117701 


024104 
000002 
177770 
001372 


007652 


000100 


155202 
001372 


024110 


001400 


155226 


155212 


CZDZA 0Z11 DEVICE DIAGNOSTICS. 


708: CLR CR1) sSTOP CLOCK. 

MOV (R2),CCOUNT sMOVE LOW COUNT FOR ERROR MESSAGE 

: sMOVE HIGH COUNT FOR ERROR MESSAGE 
BIC @rC<7>,RO sSTRIP EVERYTHING LINE NUMBER 
MOV RO, SAVLIN sMOVE LINE NUMBER FOR ERROR MESSAGE 
ERROR 3O sCOUNT TOO HIGH OR LOW 
JSR PC, SERV.G 3<tG?> 
ADVANCE 300 NEXT TEST 


}RECEIVER SERVICE ROUTINE(PARITY TEST ONLY) 
3 


PARESE: MOV GOZRBUF ,R4 sGET THE CHARACTER 
MOV R4,R1 sCOPY INFORMA 
SehS Ri sGET THE LINE NUMBER IN THE LOWER BYTE 
BIC orC<7>,R1 sISOLATE THE LINE 
MOV R1,SAVLIN sFILL LOC. FOR ERROR PRINTOUT 
TST Ra sWAS DATA VALID? 
OnI 10% ’ IF YES 
ERROR 25 sERROR - DATA VALID NOT SET! 
108: ASL R1 sALIGN IT ON A WORD BOUNDARY 
BIT OPARER .R4 sPARITY ERROR SHOULD BE SET. IS IT? 
a 11% sIF SO, GO CHECK CHARACTER 


“9 teres 1SET UP FOR THE ERROR MESSAGE 


MOV : 

BIC 0377 RS 

BISB TROCR1) RS sGET THE CORRECT CHARACTER 
BIS @OVALID!PARER.RS ;8UILD WHAT WAS EXPECTED 


ERROR 6 :@ERROR- DID NOT GET CORRECT INFORMATION 
11¢:  CHPB  TROCR1),R4 :CHECK THE CHARACTER. IS IT CORRECT? 
BEQ 12% sIF SO, GO SET UP NEXT CHARACTER 
MOVE = TROCR1).RS sLOAD THE FOR ERROR REPORTING 
BIC @tC<377>,RS sCLEAR SIGN EXTEND 
BIC 6tC<377>.R4 sREMOVE THE JUNK FROM R4, THE ACTUAL CHARACTER 
ERROR 5 ;OATA ERROR 
128: INC TROCR1) sSET UP THE NEXT 
INC R3 ;AD0 TO THE TOTAL RECEIVED COUNT 
CLR COUNTO RESET To 
CLR COUNT1 ;RECIEVER T 
BIT @TIE,@OZCSR ONS 
BNE 13¢ sIF NO, GO RECEIVE SOME MORE 
cep R2,R3 sARE ALL CHARACTERS RECEIVED? 
BNE 138 sIF NO, GO RECEIVE 
BIC @RIE , SOZCSR ;OISABLE RECEIVER INTERRUPTS 
138: ATI :GO BACK TO RECEIVER WAIT LOOP 
COUNTO: 0 
COUNT1: 0 
; TRANSMITTER INTERRUPT SERVICE 
3 -eeencecenececececeeeeceececececeeeeeeceeee 
XMTSRV: MOVB § SHDZCSR,R1 1GET THE LINE NUMBER. IS THE TRANSMITTER 
BMI 18 ;REALLY READY? IF SO. GO LOAD THE CHARACTER 
MOV SAVLIN,RO ;ADJUST LOCATION SAVLIN 





B9 


SEQ 105 
CZDZA -HO MACY11 SOAC a 19-AN-64 16:22 PAGE 105 
CZDZAM.P11  19-JUN-84 15:4 CZDZA OZ11 OEVICE DIAGNOSTICS. 

024650 042701 177770 eIc orC<7>,A1 sISOLATE THE LINE MUP@ER 

024684 010137 001372 HOY ®1, SAVLIN 1FOR ERROR PRINTOUT 

024660 108003 ERROR 3 s@TRANSMITTER NOT READY- FALSE INTERRUPT 

024662 010037 001372 OW sRESET SAVLIN TO PREVIOUS VALUE 

024666 042701 177770 18: eIc eres, a sISOLATE THE LINE NUMBER 

024672 006301 ASL {ME SURE IT NEFERENCES A WORD BOUNDARY 

024674 116177 001422 155164 SOV Toon). GDZTOR ;LOAD THE CURRENT CHARACTER FOR THIS LIME 


024702 005261 001422 Twc TOOCR1 1SET WW? NEXT CHARACTER FOR THIS LINE 
i ieubmenadeahetnersnsntiatibahebensinenanattnasssnesensetentd 
s(REV. FO: DELETED INC 


§ SOSCSCMSED OSHS OBHESHHHHASA LS SADE SSSSAHHS HWA GSSOBESOBIHOSSHSHAGS 


024706 92376, 001376 001422 or CNT, TOOCR1) HAVE ME DOME ALL PATTERNS ON THIS LINE? 
024714 001915 rug 4 , . KEEP ON TRANSMITTING 
024716 012700 000001 “uv 61,20 sSET UP A DESELECTION POINTER 
024722 006201 ASR 1 iGET THE LIE 
024724 005301 28: DEC Ri ' COUNT. WAS THIS 
024726 100402 BAT 38 sIF SO, GO OISAGLE ENABLE GIT FOR IT 
ASL ' ive TO THE NEXT L 
024732 000774 aR 28 1GO CHECK THE NEXT LIME 
024734 140077 155116 38: 8ICB RO, EDZTCR sOISABLE POINTED TO BY RO 
024740 001003 be ry sIF MORE LINES ARE ACTIVE , GO CONTINUE TRANSMIT 
024742 042777 040000 155072 exc @TIE ,@DZCSR sIF NOT, OISABLE TRANSMITTER 
§ CSSSNESESEKLOSKOGHHSHSSSSHDHSAGSSHSSSASSOSHSOTASSLOSSHHKHASHSCESASHS HESS 
024750 005202 4s: INC R2 sUP THE MUMBER OF TRANSMISSIONS (REV. FO) 
{ SOSSCAGHHASCSSAAEHSEHHHHSHASSSOGSSSOSAGCHOSEHEBDOSSSSHSSIAVHHESSEGHSHHSHSHHS 
024752 000002 aTI :RETURN TO THE T LOOP 


s RELATIVE TIME BUILDING ROUTINE 


PEPEPELRPET ES EEL Lis PEREEEREREL LiL. 
: 


024754 012737 000004 001222 BUILD: MOV 04, TIP] sROTATE 4 BITS BACK INTO STHP1 
024762 006037 001224 18: ROR eTHPS sGET THE BITS FROM STMPS, THE HIGH BYTE 
024766 006037 001220 ROR TP 1 s(F THE RELATIVE TIME PUT THEM 
024772 005337 001222 OEC sTeP2 sINTO $THP1 USING THE CARRY BIT WITH 
sROTATE INSTRUCTIONS 
024776 001371 ONE 1$ sREDUCE COUNT. ALL BITS BACK? IF NOT, GET MORE 
sy 025000 000207 RTS PC + RE TURK TO CALING TEST 








C9 


SEQ 106 
CZDZA-HO MACY11 SOAC10S2) 19-JUN-64 16:22 PAGE 106 : 
| EZDZAM.P11  19-UN-64 15:45 CZDZA OZ11 DEVICE DIAGNOSTICS. 
| $302 IRECEIVER SERVICE ROUTINE 
| $303 
$304 025002 105777 155034 RXISR1: TSTB  SDZCSR sIS THE RECEIVER REALLY READY? 
5305 100401 BAT 18 sIF $O, GO SERVICE IT 
$306 025010 104006 ERROR s@ERROR- RECEIVER DOME FLAG ISN’T SET 
$307 025012 017708 1SS030 16: MOV GDZRBUF ,R4 sSAVE THE RECEIVER INFORMATION 
5308 025016 100401 8] 28 sIF IT WAS VALID PROCESS IT 
S309 025020 104023 ERROR 23 ERROR- DATA VALID WASN'T SET 
$310 025022 032703 070000 2s: BIT @OVRRUN! FRMERR ! ,R4 sARE AY ERROR FLAGS SET? 
S311 025026 001403 SEQ 38 sIF MOT, GO CONTINUE PROCESS 
025030 013700 002046 MOY DZRBUF ,RO 1SET UP FOR ERROR REPORTING 
S313 025034 104002 ERROR 2 }ERROR- RECEIVER ERROR FLAG SET 
$314 025036 010801 3: Ha R4,A1 1COPY THE RECEIVER INFORMATION 
625080 000301 SuABtiCéRRL, sGET THE LIME MUP@ER IN THE LOMER BYTE 
$316 025042 042701 177770 erc OtC<7>,R1 sISOLATE THE LINE NUMBER 
S317 025006 006301 ASL sALIGN IT ON A WORD BOWOARY 
025050 001442 CPs AA, TROCR1) sIS THE CHARACTER WHAT IT SHOULD GE? 
$319 025054 001413 ea sIF $0.60 CONTIMUE PROCESSING 
025036 116105 001442 MOVE ——s TROCR1). RS 1GET WHAT WAS EXPECTED FOR ERROR REPORTING 
$321 025062 177400 eIc 0tC<377>, RS sELIMINATE PROPAGATED SIGN 
S322 025066 177400 eIc @tC<377>.R4 sISOLATE THE ACTUAL CHARACTER 
S323 025072 010137 001372 MOV Ri, SAVLIN GET THE LINE MUP@ER OF THE RECEIVER ERROR 
5324 76 001372 ASR SAVLIN sALIGN IT CORRECTLY FOR REPORTING 
$325 025102 104005 ERROR ;eOATA 
5326 025104 005261 001442 as: INC TROCR1) sSET UP THE NEXT 
$327 025110 005203 INC THE COUNT OF RECEIVED CHARACTERS 
$328 025112 032761 000020 001442 BIT @20, TROCR1) }HAVE ALL CHARACTERS BEEN RECEIVED? 
$329 025120 001402 8EQ $ ' . 6O 
5330 025122 oP @2,R3 SHAVE WE RECEIVED ALL CHARACTERS? 
5331 025124 001401 GEO % ' GO OE TERMINE 
$332 025126 000002 S$: RTI 360 INUE TIMING AMD ALLOW INTERRUPTS 
S333 025130 004737 026754 68: PC BUILD 1GET THE RELATIVE TIME (SIGNIFICANT BITS) 
S335 025134 013700 025214 HOV OFFSET ,RO GET POINTER 
5336 025140 013760 001220 002102 Mov STHP1, THTBL(RO) , SAVE THIS TEST’S TIME 
S337 025146 005737 025214 TST OFFSET sFIRST TEST? 
53368 001414 7 : sIF NOT, GO CHECK THE T 
S339 025154 005740 TST -(RO?) sPOINT TO THE PREVIOUS TIME TAKEN 
5340 025156 026037 002102 001220 CHP TMTBL(RO), $TMP1 ;IS THIS TIME WHAT IT SHOULD BE? 
5341 025164 101007 BHI Fe SO, GO TO THE NEXT TEST 
5342 166 MOV THTBL(RO).RS § sPLACE WHAT WAS EXPECTED 
$343 025172 010137 001372 Mov Ri, SAVLIN 1GET THE L THE RECEIVER 
3345 ERROR 





CZDZA -HO 
CZ0ZAH.P11 


S349 
5350 
$351 


MACY11 SOA(1052) 19-JUN-64 


19- JUN - 64 15: 4s 


001126 


D9 


SEQ 107 


16:22 PAGE 1 


CZOZA 0211 DEVICE DIAGNOSTICS. 
10211 ECHO/CABLE TEST 


XSTART: 


seSTARTING PROCEDURE 


= PEA A 

el CAD oR 000210 
1 ePRESS STAR 
1 ePROGRAM li TYPE 0211 ECHO/CABLE TEST 
s@PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 
pe a IN E€ OR C€ RESPECTIVELY 

WILL TYPE “VECTOR ADORESS-” 

1eTYPE IN THE ADORESS OF THE RECEIVER INTERRUPT VECTOR 
seFOR THE 0Z11 TO BE TESTED, FOLLOWED BY < CARRIAGE RE TURN> 
s@PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-* 
seTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
TESTED, FOLLOWED BY <CARRIAGE RETURN> 


PROGRAM “LINE NUMBER-* 
seTYPE IN THE LINE NUMBER TO BE TESTED CIN OCTAL) 


3 
3 
z 
5S 

23 
® 


THE OF 
3@.FOLLOWED BY <CARRIAGE RETURN> 
s@THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL 


3¢ 50 
s¢ 7s 
3¢ 110 
1a 135 (ROUNDED OFF 134.5) 
3¢ 150 
id 300 
34 600 
3¢ 1200 
3° 1800 
3% 2000 
3¢ 2400 
3° 3600 
3¢ 4800 
ye 7200 


s¢ 9600 
s@ALL OTHERS ARE REJECTED 
s@PROGRAM WILL TYPE “ECHO” OR “CABLE TEST” TO INDICATE THAT TESTING HAS STARTE 


sPROGRAM INITIALIZATION 
OUT INTERRUPTS 


sCLEAR PROGRAM FLAGS AND COUNTS 


MOV @STACK , SP sSET UP PROCESSOR STACK 

MTPS @PR7 sLOCK OUT INTERRUPTS 

MO” @XSTART, SLPADR iSET UP_IN CASE OF POWER FAIL 
CLR STFLG sCLEAR TEST START FLAG 

CLR $PASS sCLEAR PASS COUNT 

CLR sERTTL s1CLEAR ERROR ery 

CLRB sERFLG sCLEAR ERROR FLAG 

CLR LAST iCLEAR LAST ERROR PC 
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000001 


001000 


027412 


CZDZA 0211 DEVICE TOIAGNOSTICS. 


153672 VECI: 
vECe: 
1%; 


.BYTE 
-BYTE 


-BYTE 
. BYTE 


153510 OTHER: 


BIT @SWOO , BSWR 
BEQ OTHER 
MOV @300,R1 
MOV 0302 ,R2 
MOV R2,CR1)> 
CLR (R2)6 
cre (R1i)+,(R2)6 
Cop ,@1000 
BNE 
INSTR 
MVECTOR 
PARAM 
300 
770 
OZRIV 
3 
a 
INSTR 
PARAM 
160000 
163700 
ozcsR 
H 
Mov OZCSR,.OZRBUF 
ADD , 
MOV ,OZLPR 
MOV DZROUF .OZTCR 
ADO ,OZTCR 
nov DZTCR,MOZTCR 
MOV DZTCR,OZTOR 
ADO ; 
MOV DZTOR ,OZMSA 
BIT , 
BEQ G 
INSTR 
PRIHICH 
PAWCH 
WCHFLG 
INSTR 
MSPEED 
PARMD 
50. 
9600. 
LINESP 
: 
DEVICE.CLR 
CLR STFLG 
TR 
MLINE 
PARAM 





SEQ 106 


sIF SWOOe1, GET NEW VECTOR 
sAND CSR 


sRESTORE TRAPCATCHER 
sIN FLOATING VECTOR AREA 
sUPDATE THE POINTERS 


sINPUT ADDRESS OF DEVICE VECTOR 
MESSAGE “VECTOR ADORESS-” 
sCONVERT STRING TO OCTAL 

-~e LIMIT 


LIMIT 
ILOCATIONS TO BE FILLED 


tMUPOCR OF LOCATIONS 

sINPUT ADDRESS OF DEVICE CSR 
sMESSAGE “CONTROL REGISTER ADORESS-” 
1 CONVERT STRING TO OCTAL 


sLOW LIMIT 
sMIGH LIMIT 
—— TO BE FILLED 


BUILD 
sFORM THE READ BUFFER ADDRESS 
sREMEMBER THAT THIS IS ALSO LINE PARAMETER REG. 
sBEGIN BUILDING TRANSMITTER CONTROL REGISTER 
1FORM THE TRANSMITTER CONTROL REGISTER POINTER 


s8EGIN FORMING TRANSMITTER DATA REGISTER 
sFORM THE TRANSMITTER DATA REGISTER 


sRESELECT OF TEST? 
sIF NOT, SKIP ASKING WHICH ONE 
sINPUT WHICH TEST YOU ARE RUNNING 


iMESSAGE "BAUD RATE -” 
sCONVERT DECIMAL STRING TO OCTAL 
sLOW LIMIT 


sHIGH LIMIT 

sLOCATION TO BE FILLED 
3LSB MASK 

ere OF LOCATIONS 
ICLEAR DE VICE 

sCLEAR PROGRAM START FLAG 
TINPUT LINE NUMBER 
sMESSAGE “LINE NUMBER-” 
sCONVERT STRING TO OCTAL 
sLOW LIMIT 

sHIGH LIMIT 








| 
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001372 
000 


001 
004537 


952737 
013777 


001126 


001126 


153214 


001360 


001366 
001366 


001366 
154036 


PAGE 1 
CZDZA 0211 DEVICE ‘DIAGNOSTICS. 


BYTE 


XBEGIN: 


2s: 


1%: 


TESTI: 


3%: 


2s: 


—— 

BYTE 1 

JSR RS,SET 

MTPS @PR7 

MOV @STACK , SP 

CLR LOCKUP 

TST WCHFLG 

BEQ 2s 

MOV OTEST2, SLPADR 
TST STFLG 

BNE 18 

cor STFLG 

TYPE -MCABLE 

BR i$ 

MOV @TEST1, SLPADR 
TST STFLG 

BNE 18 

COM STFLG 

TYPE oMTERM 


JP @SLPADR 
sTHIS TEST WILL ACCEPT 1 
IN MODE 


SEQ 109 


og phen TO BE FILLED 
’ 

sNUMBER OF LOCATIONS 
sLOCK OUT INTERRUPTS 
sSET UP PROCESSOR STACK 
sCLEAR TIMEOUT 

sECHO OR CABLE TEST ? 
sECHO 

sCABLE TEST 

sARE YOU LOOPING ? 
sYES 

sNO 

sTYPE CABLE TEST 


sSET UP ECHO TEST 
£ YOU LOOPING ? 


IME 
) NO TRANSMIT THAT SAME CHARACTER, 


s¢ eg! 
ONE LINE AT A TIME, ANY LINE O THRU 7 (OCTAL) 


DEVICE .CLR 
01, $TSTNM 

HOV NUMTCR, GOZTCR 
NUMLIN, PAR 

Is SPEED ,PAR 
PAR, GDZLPR 


MOV CK,RS 
TST @O0ZCSR 
BMI 2s 
DELAY 
DEC R4 
3¢ 
3 
CLR Ra 


MOVB ae 


JSR PC, SERV.G 
CHB eee 


é »PAR 
BIS .PAR 
BIS @RCVON, PAR 
MOV PAR, GDZLPR 


sCLEAR 02711 
sSET TCR BIT 


sl " 

3SET SCANN ENABLE 
= eas BUFFER 
4 

s8R IF YES 

sWAIT 

’ 


a 
sNO TROY SET! WHY? 
sRESET COUNTER TO 0 


sLOAD CHAR 

’ 

3<tG>? 

sRE-00 QUICK BROWN? 
368R IF REPEAT PATTERN 


sLOCK OUT INTERRUPTS 


sSELECT LINE @ € SET INTERRUPT ENABLE 
SPEED AND 


RECEIVER IS TURNED ON 
sLOAD THE LINE PARAMETER REGISTER 


CZDZA-HO 
CZOZAM.P11 


$517 
5516 
$519 
SS20 
SS21 
SS23 


SPER ER EEE sa soda dg eta 


026014 


026266 
026272 
026300 





SEQ 110 
MACY11 3OA(1052) 19-JUN-84 16:22 PAGE 110 
19-JUN-64 15:45 CZDZA 0Z11 DEVICE IO TAGNOSTICS. 
012777 154050 MOV @INTSVC,GOZRIV SET UP INTERRUPT SERVICE 
013777 027436 154044 MOV PRIO, GOZRIS SAND 
106437 030310 MTPS) ©-« @SLESS1 sALLOW INTERRUPTS 
012777 000140 154000 MOV @RTE IMSENAB,GDZCSA ,SET RECEIVER INTERRUPT ENABLE 
1 027612 TYPE, 1TYPE “ANY CHARACTER” 
105777 153112 1s: TST8 © @STKS sIF SOMBODY HITS A KEY- GET NEW LINE © 
100375 BPL 18 LOOP HERE 
005777 153106 TST asTKe 1CLEAR CHAR 
004737 007652 JSR PC, SERV.G 1MAKE SURE IT WASN'T <tG> 
000137 ee LINEX ' 
THe FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 
105777 153746 INTSVC: TSTB  SDZCSR sTEST REC. FLAG 
100401 BMI 04 
104004 ERROR 4 ;ERROR - INTERRUPT NOT CAUSED BY FLAG 
017737 153742 027440 MOV GDZROUF ,RECDAT 
100401 BMI .° 
104023 ERROR 23 sNON- VALID CHARACTER 
032737 020000 027440 BIT e81T13, RECDAT  ;CHECK FOR FRAMING ERROR 
001401 BEQ 04 30R IF NO ERROR 
104025 ERROR sEITHER SOMBODY HIT THE 
"BREAK KEY” OR YOU HAVE AN ERROR: 
113737 027440 027442 MOVB =—s- RECDAT,, TeUF 1MOVE CHARACTER T 
113737 027440 011272 HOVB CDAT sMOVE CHARACTER TO CHECK FOR tC 
042737 011272 BIC @tC<177>, INBUF STRIP JUNK PLUS PARITY 
042737 174377 027440 BIC 0174377, RECDAT ;SAVE ONLY LINE 
000337 027440 SWAB —s- RECDAT 
023737 001372 027440 CMe SAVLIN,RECDAT  ;O0ES THE LINE @ COMPARE? 
001401 BEa 04 
1040 ERROR iS ;@WRONG LINE NUMBER 
012777 153642 Mov @MSENAB,GDZCSR ;START THE TRANSMITTERS SCANNER 
123727 011272 000003 CHB 2OiéCINBUF 03 sIS IT A tC ? 
001004 BNE 18 sNO 
104413 DEVICE.CLR 
012716 026724 Ov @XEOP , (SP) sCRUNCH STACK 
3 18: CLR pINITIALIZE DELAY 
013777 027434 153626 MOV NUMTCR,GDZTCR ENABLE THE LINE 
005777 153606 106; TST 802 ; TRANSMITTER READY? 
100403 BMI 28 sIF YES BRANCH 
005203 INC R3 , DELAY 
001373 BNE 108 ;DELAY DONE? 
ERROR 3 ; TRANSMIT READY NOT SET! 
113777 027442 153614 2%: MOVB =‘ TBUF ,GDZTOR THE CHARACTER 
012777 000140 153562 MOV @RTE IMSENAB. sozcsR ;RESTART THE RECEIVER 
005077 153572 CLR @0ZTCR ;CLEAR TCR BIT 
000002 ATI 
;THIS TEST TRANSMITS A BINARY COUNT PATTERN 
sVIA INTERRUPT MODE TO THE RECEIVER 
}...THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR 
106427 000340 TEST2; MTPS @PRT :DISABLE INTERRUPTS 
012737 000002 001122 MOV 62, ¢TSTNM 
012737 026724 001360 @XEOP , NEXT 





H9 
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$573 
5574 
$575 
5576 
$577 
$578 
$579 


SR eBRERRSZECE Ec ccroseoRncanesgusaavuseseenaseees 


026306 104415 


026316 
027434 


027434 
027434 
153514 
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001362 
153534 


153400 
153372 


027440 


027440 


18; 


2s: 
38: 


QUITS: 
INTREC: 


16:22 PAGE 1 
CZOZA 0211 DEVICE DIAGNOSTICS. 


DEVICE .CLR 

seTEST TO VERIFY THAT SETTING OTR FOR A GIVEN LINE 
s@WILL BRING UP “CO” AND “RING” FOR THE SAME LINE 

10 THE DIST PNL MUST HAVE JUMPER FROM DTR TO RQ@ST TO SEND 

Se ORDER FOR THIS TEST TO WORK! 


#16 ,LOCK sLOOP 
MOvVB NUMTCR, GHDZTCR sSET OTR 
CLR AS ’ 
9188 NUMTCR RS sBUILD EXPECTED 
CWAB RS sPUT IN HIGH BYTE 
BIS8 NUMTCR RS r 
DELAY sWAIT FOR CABLE DELAY 
MOV @OZMSR ,R4 sREADY MODEM BITS 
CMP RS,R4 sARE THEY OK? 
BEQ et s0R IF YES 
ERROR 22 sIS THE TEST CONNECTOR ON? 
sHAS RIGHT LINE .Y SELECTED? 
sIF SO- YOU HAVE A H 
sMODEM BITS NOT RIGHT 
SCOP1 3LO0P 
OEVICE.CLR SINIT 0211 
MOV PAR sSET LINE SPEED 
BIs NUMLIN,PAR sSELECT LINE @ € REC. INTERRUPT 
BIS @RCVON PAR 3s ENABLE RECEIVER FOR THIS LINE 
BIS @OTIE!RIE!MSENAB.GDZCSR ;SET TRANSMITTER INTERRUPT ENABLE 
MOV @INTREC ,@DZRIV ;SET UP INTR SERVICE 
MOV PRIO,GDZRIS sSET UWP LEVEL 
MOV @INTRAN,G@OZTIV ;SET UP INTR SERVICE 
MOV PRIO,@OZTIS sSET UWP LEVEL 
CLR R1 sRX DATA POINTER- SET TO 0 
CLR R2 sTX DATA POINTER- SET TO 0 
MOV PAR ,GDZLPR 3SET THE PARAMETERS AND TURN ON RECEIVER 
MTPS @eL_ESssi sALLOW INTERRUPT 
MOV NUMTCR.GDZTCR ;SET UP TCR BIT 
sYOU RETURN HERE AFTER EVERY RECEZVER INTERRUPT 
TST6 esTKs sIF SOMEBODY HITS A KEY- GET A NEW LINE @ 
BPL 1% 1BR IF NO KEY HIT 
TST OsTKB sCLEAR 
JSR PC, SERV.G sMAKE SURE IT WASN'T <?tG> 
sep LINEX sSWO02*1 
INC LOCKUP sINC TIMEOUT FLAG 
BNE SPIN sIF NOT O RETURN SPINNING 
ERROR 11 s@RECEIVER FAILED TO INTERRUPT CHECK CABLE/TERMINATOR 
OEVICE.CLR 
sp sCALL FOR END 4 Pass 
CLR SCLEAR oe © LAG 
TSTs @0ZCSR sTEST REC DONE 
BMI 04 YES 
ERROR s@FALSE INTERRUPT 
a ager eRECDAT ;SAVE WORD 
33 
ERROR 3@NON VALID CHARACTER 
BIT corre, RECDA i sDATA OVERRUN ? 
BEQ sNO 
ERROR oy YES 


CZDZA-HO MACY11 SOAC105S2) 19-JUN-64 16:22 
CZDZAM.P11 19-JUN-64 15:45 
5629 026564 032737 020000 027440 BIT 
5630 026572 001401 BEQ 
5631 026574 104025 ERROR 
5632 026576 032737 010000 027440 6IT 
5633 001401 BEQ 
S634 
5635 026610 110105 MOVE 
5636 12 177400 BIC 
S637 026616 113704 027440 MOVE 
S638 026622 042 177400 BIC 
5639 026626 cre 
S640 026630 001401 BEQ 
5641 026632 1 
5642 026634 042737 174377 027440 BIC 
S643 026642 027440 SWAB 
5644 026646 023737 001372 027449 cP 
S645 026654 001401 BEQ 
S646 026656 104015 ERROR 
S647 026660 120127 000577 fan} 
S648 026664 001005 ONE 
5649 026666 012716 026516 Mov 
5650 026672 BR 
S651 026674 1 18: INCB 
S652 026676 012716 026464 Mov 
S653 026702 2s: RTI 
S655 704 005777 153152 INTRAN: TST 
5656 026710 100401 BMI 
S657 026712 1 3 ERROR 
026714 110277 155146 MOvB 
5659 026720 105202 InCB 
026722 000002 RTI 


19 


PAGE 112 
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@B1IT13,RECDAT 
04 


25 
———— 
.¢ 


R1,RS 
@tC<377>,R5 
RECDAT ,R4 
@tC<377>,R4 
_— 30K? 
.* 


5 

0174377 ,RECDAT 
RECDAT 
a 
.° 


1S 

——" 
@QUITS (SP) 
2s 


RL 
@SPIN, (SP) 


SEQ 112 


sFRAMING ERROR ? 
NO 


s*VES 
sPARITY ERROR 7? 
' 


OUND 
sCLEAR HIGH BYTE 


sDATA ERROR 

sSAVE ONLY LINE NUMBER 
= THE LINE @ COMPARE ? 
’ 

s@WRONG LINE @ 

—_ CHARACTER ? 

’ 

sCRUNTCH STACK 


sUPDATE EXPECTED DATA 
sCRUNCH STACK 


@OZCSR ; TEST TRANSMIT FLAG 


04 

3 
R2,GDZTOR 
Re 
sRETURN 


s@FALSE INTERRUPT 
s TRANSMIT A CHARACTER 
sUPDATE TX DATA 
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5661 
5662 
5663 


5664 
S665 
5667 
5668 
5669 
5670 
5671 
S672 
S673 


5674 
5675 


5676 
$5677 
5676 
5679 


JI 
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19-JUN-64 15: 


027132 
027130 
027136 


027134 


000002 
027137 


XEOP : 


RSTRT: 


2s: 


1%: 


3%: 


4%: 


sEND OF PASS 
sRESTART TEST 
TYPE s1YPE NAME OF TEST 
MPASS 
CLR LAST sCLEAR LAST ERROR PC 
CLRB sERFLG ;CLEAR ERROR FLAG 
JSP XBEGIN 
sCONVERT DECIMAL ASCII STRING TO OCTAL 
MOV (SP),RS 
MOV CRS)+,6% 
MOV (R5)+, 78 
nOV (R5)+,88 
MOVE CRS)+,98 
MOVB CRS)+,108 
MOV RS,CSP) 
CLR PS 
MOV @INBUF .R4 
CMPB #15,(R4) 
BEQ 3% 
CMPB CR4),0'0 
BLT 
CePB (R4),0'9 
BGT 
BICB @'0,(R4) 
CLR Re 
BIS8 (R4)+,R2 
R2,R5 
CMPB #15,(R4) 
BEQ 4$ 
ASL 3X2 
MOV RS.R2 ;SAVE X2 
ASL RS ea 
ASL RS 
ADO R2,R5 sTIMES 10 
BR 13 
INSTER 
BR 2s 
sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
CMP RS,7$% 
BHI 3% 
CMP R5,6$% 
BLO 3¢ 


BITB 9¢,RS 
BNE 3% 


sSTORE NUMBER AT SPECIFIED ADDRESS 


MOV 8$, 

MOV RS;CRADs 
ADO o2,R5 
DECB 106 


SEQ 113 
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SEQ 114 
MACY11 30A(1052) 19-JUN-64 16:22 PAGE 1 
19-JUN-64 15:45 CZOZA 0Z11 DEVICE A TAGNOSTICS. 
001372 BNE 5% 
000002 RTI 
000000 68: 0 
000000 78: 0 
OOOO 8s: 0 
000 9%: .BYTE O 
000 10%: -BYTE O 
sCOMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
;BUFFER TO THE CHARACTERS “E” AND “C". 
sIF THE CHARACTER IS “E” CLEAR THE FLAG 
sIF THE CHARACTER IS “C” SET THE FLAG 
01 000000 . PAWCH: MOV a SP).RS 
142737 000040 011272 BIcB 040, INBUF 3SET FOR aw CASE INPUT 
122737 000105 011272 CMPB @'E, INBUF 3IS IT "E" 
001002 BNE 1s 
105015 ne - 3000 
122737 000103 011272 1%: CMPB @'C, INBUF 3IS IT "C" ? 
001 BNE 3% 
112715 177777 MOVB @-1,(R5) 33177 
062716 000002 2s: ADO @2,(SP) 
000002 RTI 
104404 3%: INSTER sRETRY 
000752 6R .PAWCH 
sTHIS ROUTINE CONVERTS LINE SPEED (LINESP) AND 
sLINE NUMBER (SAVLIN) FOR DZLPR, OZTCR AND OZCSR 
sREGISTER USAGE. 
013737 001372 027432 SET: MOV SAVLIN,NUMLIN ;SAVE SAVLIN 
013700 00137. XTCRO: MOV SAVLIN,RO sCOPY THE LINE NUMBER FOR LOOP CONTROL 
005037 027434 CLR NUMTCR 3SET A DEFAULT OF LINE O OR NO LINES 
012702 1 MOV #1,R2 3SET A BIT POINTER TO THE FIRST LINE 
005300 XTCR1: OEC RO sREDUCE THE INDICATOR.IS IT MINUS YET? 
100402 BMI SET1 sIF SO, R2 POINTS TO THE RIGHT LINE 
006302 ASL 4 sIF NOT, MOVE THE POINTER TO THE NEXT LINE 
000774 BR XTCR1 3GO SEE IF THIS LINE IS THE ONE 
012701 027310 SET1: MOV @TABLE2 ,R1 
010237 027434 MOV R2,NUMTCR sCOPY THE CORRECT BIT POINTER 
022137 027426 1%: CMP (R1)+,LINESP 
001407 B£aQ 2s 
005721 TST CR1)« 3IS IT THE END OF TABLE? 
001373 BNE is sNO 
1 027536 TYPE »MINVAL sINVALID BAUD RATE,BEGIN AGAIN 
012705 ~¥ a 3 JUMP TO BAUD THRU RS 
011137 027430 2s: MOV CR1), SPEED 3SET UP BAUD RATE 
3%: RTS RS 
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sTHE FOLLOWING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR) 
SO. ” BAUD 


TABLE2: .WORD 
.WORD 10070 
.WORD 75. 175 BAUO 
.WORD 10470 ’ 
-WORD 110. 3110 BAUD 
-WORD 11070 sTWO STOP BITS 
.WORD 135. 2134.5 BAUD 
.WORD 11470 sTWO STOP BITS 
.WORD 150. s1 
-WORD 12070 3TWO STOP BITS 
.WORD 300. 3300 BALD 
-WORD 12430 sONE STOP BIT 
.WORD 600. 8 
.WORD 130350 3;0NE STOP BIT 
-WORD 1200. 31200 BAUD 
-WORD 13430 30NE STOP BIT 
-WORD 18600. 31600 
-WORD 14030 30NE STOP BIT 
-WORD 2000. ‘ 
.WORD 14430 30NE STOP BIT 
-WORD 2400. 32400 
.WORD 15030 sO0NE STOP BIT 
-WORD 3600. 8 
.WORD 154350 ;ONE STOP BIT 
.WORD 4800. 34800 BAUD 
-WORD 160350 sO0NE STOP BIT 
.WORD 7200. 37200 
-WORD 164350 3;0NE STOP BIT 
. WORD . 39600 BAUD 
.WORD 17070 F 
-WORD -1,0 sTABLE TERMINATOR 
WCHFLG:0 sECHO OR CABLE FLAG 
STFLG: 0 sPROGRAM START FLAG 
u : 0 s TIMEOUT FL. 
LAST: 0O sLAST ERROR PC 
TOATA: O 
RDATA: O 
BYTCNT: O 
LINESP: 110. s0EF AULT BAUD R 
SPEED: 6307 sOEFAALT 110 BMD. 8 BITS/CHAR, 
sFOX, 2 STOP BITS 
NMUMLIN: 100 s;DEFAULT VALUE, REC. INTERRUPT ENABLED 
NUMTCR: 1 sDEFAULT VALUE,.TCR BIT 
PRIO: 240 sOEF AULT DEVICE PRIORITY 5 
RECDAT: O 
TOF: Oo 
MVECTO: .ASCIZ <200>/VECTOR ADORESS- / 
: .ASCIZ <200>/CONTROL ye ADORESS- / 
MPASS: .ASCIZ <200>/PASS DONE./ 
MINVAL: .ASCIZ <200>/INVALID BAUD RATE - / 
MLINE: .ASCIZ <200>/LINE: 


/ 
-ASCIZ <200>/BAUD RATE - / 


SEQ 115 








¥ 
‘s 
tot 


MS 


SEQ 116 
MACY11 3OAC1052) 19-JUN-64 16:22 PAGE 1 
19-JUN-64 15:45 CZDZA 0211 DEVICE A ATAGNOSTICS. 
052200 050131 020105 MCHAR: .ASCIZ <200>/TYPE A CHAR. 1 TERMINAL / 
053600 044510 0441035 MMMICH: .ASCIZ <200>/WHICH TEST ? Eo. cr CABLE (E OR C) / 
052200 051105 044515 MTERM: .ASCIZ <200>/TERMINAL _ * 
200 0640503 046102 MCABLE: .ASCIZ <200>/CABLE TEST 
006777 177777 177412 MQUICK: .ASCII <5772415>¢577><577><12>¢$77><377> 
124 042510 050440 -ASCII /THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789/ 
yo nth 177777 «177412 — eASCII ¢377><15>¢377><377><12><377><377><377><0> 
030100 J 
§ f OOROSSSSRSSSSSSSOSSSSESEOEDESEEOOREEEOOEEEEESESESESESESECESE 
sUTILITIES 
§ 1 OSOOSROSSEASORSEESSSESSEESEEESSEESEEDESEESSEEESEEESEEE REESE 
3THIS UTILITY CALCULATES PRIORITY LEVEL.SETS UP CSR’‘'S.SETS WP VECTORS. 
006337 030306 OZLEV: ASL OZPRT sBUILD PRIORITY Im THIS LOCATION 
006337 030306 ASL OZPRT ;USING ARITHMETIC SHIFTS, ROTATE 
006337 030306 ASL OZPRT 8 THE PRIORITY LEVEL PAST 
006337 ASL OZPRT THE BIT POSITIONS CORRE - 
006337 030306 ASL OZPRT SPONDING TO THE CONDITION CODES 
013737 030306 030310 MOV OZPRT ,LESS1 iMOVE THIS TO LESS1 
162737 000001 030310 SUB #1,LESS1 sCREATE THE NEXT LOWEST PRIORITY 
042737 000037 030310 BIC @37,LESS1 sINSURE THAT THE TNZVC BITS ARE CLEAR 
013700 002072 MOV ° sPLACE THE BASE VECTOR ADDRESS IN RO 
ADO sCALCULATE THE RECEIVER INTERRUPT STATUS ADOR. 
010037 002074 MOV RO, OZRIS sSTORE IT HERE 
ADO 2, sCALCULATE THE TRANSMITTER INTERRUPT VECTOR 
010037 002076 MOV RO ,.OZTIV i STORE IT HERE 
ADD @2,R0 sCALCULATE THE TRANSMITTER VECTOR STATUS ADORESS 
010037 002100 Ov RO ,OZTIS sSTORE IT HERE 
dag By + eee UP POINTERS FOR THE GIVEN DZ11. #BASE IS THE BASE ADDRESS 
3 
013700 001310 MOV $BASE ,RO ;COPY THE ADORESS BEING LOADED 
010037 002042 mov RO,OZCSR 3X%Xx0 
005200 INC 
010037 002044 — ~ crcecae gXXX1 
010037 002046 MOV RO ,OZRBUF sXXX2 
010037 002052 —~ + cate 3XXX2 
010037 002050 mov RO, HOZROUF 3 XXX3 
010037 002054 po —~ eens 3XXx3 
010037 002056 — ~ aca a XXX46 
010037 002060 —: ei 3 XXxX5 
010037 002062 MOV RO ,OZMSR 3 XXX6 
010037 002066 — ~ Tea 3 XXX6 
010037 002064 MOV RO ,HDZMSR 3 XXX7 
010037 002070 MOV RO, HDZTOR gXXX7 
000207 RTs 
000240 OZPRT: PRS 
000200 LESS1: PR4 sLEVEL TO ALLOW INTERRUPTS 


CZDZA-HO 
CZDZAH.P11 


$870 
$871 
5872 
$673 
5874 


Se 
a 


76 
$877 
5878 
5879 


SESNERCESEGEORECSSSSSSSRSSSeSaaeERSSSBCROEERES 


MACY11 SOAC105S2) 19-JUN-64 16:22 PAGE 117 
CZDZA 0Z11 DEVICE DIAGNOSTICS. 


19-JUN-64 15:45 


031117 
032123 
032326 


031155 
32 


N9 


.ERRTAB : sERROR 
0 
Emi ;ERROR 
OM1 
OT1 
EMe sERROR 
OH2 
OT2 
Ems ;ERROR 
OHS 
oT3 
Ena ;ERROR 
OH3 
oTs 
ens sERROR 
DH 
OT4 
EM6 3;ERROR 
OHS 
OT4 
EN7 ;ERROR 
OH3 
oT3 
EM8 sERROR 
OH3 
oT3 
EM9 3;ERROR 
OHS 
oT3 
EM10 sERROR 
OH3 
OT3 
Emi3 sERROR 
OH3 
oT3 
EM14 sERROR 
OH3 
oT3 
os ;ERROR 
t¢) 


10 


11 


12 


13 


14 


15 


SEQ 117 


LEE EERE ERED ERLE: 


So 





B10 


Seo 118 

MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 116 as 
19-UN-64 15:45 CZDZA 0Z11 DEVICE DIAGNOSTICS. 

031341 En16 

032123 DHS 

032326 OTs 

031412 €M17 —-, ERROR 17 

032128 OMS 

032326 bis 

031450 EM2O 

032123 

032326 oT3 

031511 EM21 ERROR 21 

032164 OMS 

032352 OTs 

031541 EN22 ERROR 22 

032135 One 

032 ota 

031603 EN23 ERROR 23 

032123 

032326 OTS 

031633 Enea 

032123 

032326 OTs 

031661 ENDS 

032123 

032 OTS 

031711 EN26 

032123 DHS 

032326 OTs 

031740 en27 

032123 DHS 

032326 OTs 

032010 ENSO 

032243 OMG 

032374 oT6 





C10 


SEQ 119 
| C2DZA-HO MACY11 SOAC 1052) 19-JUN-64 16:22 PAGE 1 
|EZDZAH.P11  19-JUN-64 15:45 CZDZA 0211 OEVICE LA IAGNOSTICS. 
| $971 sERROR MESSAGES 
| §972 030580 087200 020117 086123 EM1:  .ASCIZ <200>/ND SLAVE SYNC RESPONSE FROM 0Z11 REGISTER/ 
030613 200 042522 064507 EM2:  .ASCIZ <200>?REGISTER R/W FAILURE? 
| 030641 200 051124 067101 EMS:  .ASCIZ <200>/TRANSMIT READY (TROY) oa SET/ 
030 051200 041505 044505 EMé: § .ASCIZ <200>/RECEIVER DOME NOT SET/ 
030727 200 040504 060524 EMS:  .ASCI2 <200>/DATA COMPARISON ERROR/ 
030 042200 030532 020061 ES: $.ASCIZ <200>/DZ11 eRECEIVER 
031014 052200 080522 051516 EM7:  .ASCIZ <200>/TRANSMITTER FAILED TO INTERRUPT, 
031058 200 067125 054105 ENB:  #.ASCIZ <200> TED TRANSMITTER INTERRUPT, 
031117 200 062522 042503 E98:  .ASCIZ <200>/RECEIVER FAILED TO INTERRUPT/ 
031155 200 087125 054105 E10: .ASCIZ <200>/UMEXPECTED RECEIVER INTERAUPT/ 
031214 051600 086111 O20117 E13:  .ASCIZ <200>/SILO ALARM SET TOO SOOW/ 
031245 200 047514 14: .ASCIZ <200>/SILO ALARM FAILED 10 SET/ 
03127? 200 061501 004 G15:  .ASCIZ <200>/ACTION DETECTED ON INVALID LINE./ 
031341 200 042101 E16:  .ASCIZ <200>/READING OZRBUF DID NOT CLEAR SILO ALARM 
031412 062200 052101 020101 E17:  .ASCIZ <200>/DATA VALID SHOULD NOT BE SET/ 
031450 051200 €P@0: .ASCIZ <200>/RECEIVER DOME SHOULD NOT BE SET/ 
031511 200 000514 1:  .ASCIZ <200>/MELATIVE TIMING ERROR. / 
031541 200 067515 062504 E22: .ASCIZ <200>/MODEN SIGH ERROR ON CABLE TEST/ 
031603 200 000524 EF@3: .ASCIZ <200>/DATA VALID IS NOT SET!/ 
031633 200 000524 E24: .ASCIZ <200>/DATA OVERRUN IS SET!/ 
1661 200 051106 006501 © 25:  .ASCIZ <200>/FRAMING ERROR OCCURRED/ 
031711 200 004522 EF@6: .ASCIZ <200>/PARITY ERROR OCCURRED/ 
031740 043200 086125 020114 E27:  .ASCIZ <200>/FULL BINARY COUNT PATTERN NOT RECEIVED/ 
032010 041200 1 020106 EMSO: .ASCIZ <200>/BALD RATE TIMING TEST ERROR/ 
032045 200 051124 050101 OMi: . <200>/TRAP PC 
032070 042600 050130 041505 OM2: .ASCIZ <200>/EXPEC FORD REGISTER, 
032123 200 084514 042516 OMS: -ASCIZ <200>/LINE NO 
032135 200 054105 OM¢: § .ASCIZ <200>/EXPECTED FOUND 
032164 052200 020130 044514 OMS:  .ASCIZ <200>/TX LINE PREVIOUS ie. gt TIME PARAMETER/ 
032243 200 044510 044107 OM6: “ASCIZ <200>/MIGH LOW COUNT 
sDATA TABLES FOR ERROR MESSAGES 
032276 000002 O11: 2 
032300 006 003 BYTE 6,3 
032302 001204 $REG1 
032304 006 001 .B6YTE 6,1 
032305 001202 $REGO 
032310 000003 oT2: 3 
032312 006 004 .OYTE 6,4 
032314 001214 $REGS 
032316 001 .BYTE 6,1 
032320 001212 SREGS 
032322 006 001 .BYTE 6,1 
032324 001202 $REGO 
032326 000001 OTs: 1 
032330 003 001 ‘BYTE 3,1 
032332 001372 SAVLIN 
032334 000003 om4; 3 
.BYTE 6,4 
REGS 
.BYTE 6,1 
$REG4S 











r--ts 


D10 





SEQ 120 
CZDZA -4O0 MACY11 SOAC( 1052) 19-JUN-864 16:22 PAGE 120 
CZDZAN.P1i1 19-JUN-64 15:45 CZDZA 0Z11 DEVICE DIAGNOSTICS. 
032346 003 001 BYTE 3,1 
032350 001572 SAVLIN 
O323S2 000004 OTs: & 
032354 003 005 BYTE 3,5 
os2 001372 SAVLIN 
032360 006 011 BYTE 6,9. 
OS2362 001214 $REGS 
os2 006 007 BYTE 6,7 
032366 001220 TMP 1 
032370 006 001 BYTE 6,1 
032372 001400 REGIST 
032374 000004 OT6: a sFOR BAUD RATE ERROR MESSAGE 
032376 006 001 BYTE 6,1 
032400 024110 sMIGH COUNTER 
032402 901 BYTE 6,1 
032404 024104 sLOW COUNTER 
032406 001 BYTE 6,1 
032410 624106 sACTUAL XMIT COUNT 
032412 00 001 -B6YTE 1,1 
032414 001372 SAVLIN sTHE LINE NUMBER ERROR OCCURED ON 
sTABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 
$ ial 
032416 002450 OLYTBL: 2450 sTIME FOR SO BAUD 
032420 001560 1560 sTIME FOR BAUD 
032422 001120 1120 sTIME FOR 110 BAUD 
032424 000750 750 sTIME FOR 134 BAO 
032426 000660 660 sTIME FOR 150 BAUD 
032430 000330 330 sTIME FOR 300 BAUD 
032432 000150 150 sTIME FOR 600 BALD 
032434 000060 60 s TIME FOR 1200 BALD 
032436 000040 40 sTIME FOR 1800 BAUD 
032440 0000350 30 sTIME FOR 2000 BAUD 
032442 20 sTIME FOR 2400 BALD 
032444 000010 10 sTIME FOR 3600 BALD 
032446 000001 1 sTIME FOR 4600 BUAD 
032450 000001 1 sTIME FOR 7200 BAUD 
032452 000001 1 sTIME FOR 9600 BALD 
032454 000001 1 sTIME OF DELAY FOR 19200 BAUD 


sDELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 
sFOR ALL TESTS TO FUNCTION CORRECTLY ON A P0P11/45 WITH ising 
sMEMORY. TME TIMES WERE ALSO TESTED ON AN 11/40 AND 11/10 


. *MANTO 
100000 





CZOZA-HO 
CZOZAM.P11 


aAcDwl = 
ACDWe = 
ACPUOP = 
ACTIVE 
ADOWO = 
ADOW1 = 
ADDWU10= 
ADOW11= 
ADOW1 $= 
ADOW14= 
ADOW1S= 


aSReepetne 


160010 


MACY11 SOAC1052) 19-JUN-64 
19-JUN-64 15:45 CROS 


796@ 
1206 
1206 
levé6 
1311¢ 
1208 


Eeesaesssesesaeaes 


1521¢@ 


PETE Eee tied 


E10 


16:22 PAGE 122 
Ss -- USER SYMBOLS 


REFERENCE TABLE 


1208 
1251 


1249 


1223 
ro i 2616¢ 2617 2619¢ 2624 2625¢ 2626 


1214 
1250 
237l1e 
S086 


5067 
1219 
1220 


23816 
3377 
5159 


3589 3810 


5187 


3603 
S202 


3650 
5215 


3659 


22740 
2275¢@ 


2563 


2629¢ 


4413 


4536 


4795 


SEQ 121 


4843 


4970 





CZDZA-HO 
CZ0ZAM.P11 
AVECT1* 000000 
AVECT2= 000000 
BAUD 025462 

024106 
BIMRD 007120 
BITO 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000004 
BITOS = 000010 
BITOS 


@ 
= 
«4 
~~ 
~ 
a 


BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BITS = 000400 
BIT9 = 001000 
BPTVEC= 000014 
BRKO = 000400 
BRK1 = 001000 
BRK2 = 002000 
BRKS = 004000 
BRK4 = 010000 
BRKS = 020000 
BRK6& = 040000 
BRK7 = 100000 
BRW 005372 
BUILD 024754 
BYTCNT 027424 
CCOUNT 024104 
CHRONT 007116 
CLKSRV 76 
CHAT = 104412 
COMVRT= 104411 
CORMAX 032456 
COUNTO 024632 
COUNT1 024634 





MACY11 SOAC1052) 19-JUN-64 
CROS 
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5150¢ 
995 


5156¢ 
997 


16:22 PAGE 123 
S REFERENCE 


F10 


TABLE -- USER SYMBOLS 


5176¢ 
599 


5164 
1036 


5189 
1055 


5179 


5191 
3433 


$972 


4934 


1021 


1018 
1019 


1022 
1066 


1020 
1020 





SEQ 122 
1023 1024 
1078 2063 
3017 
1022 1024 
1023 1024 


Geni, a Veit UC eth ei OAM geet Gg as 


SEQ 123 


CZ0Z MACY11 SOAC10S2) 19-JUN-64 16:22 PAGE 124 
CZDZAM.P11 19-JUN-84 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 
C01 * 001000 1064¢@ 
Cco2 = 002000 1065¢ 
cos = 10666 
cos = == 010000 1067¢@ 
COS) == 029000 1068¢@ 
C06 = 040000 1069¢@ 
CO7 = 100000 10700 
CR * 900015 626e@ 2210 2220 
CRLF = 629@ 2162 2220 
012272 2927¢@ 
CYae 011542 1968 
DATABP 007512 253ie¢ 2534 25 2561¢ 
DATA 00 2530e 2554 2557¢@ 
ASM= 104417 ae dane 3836 3926 4016 4088 4171 4260 4377 4436 4575 4664 4346 
DGL.R = 945@ 62477 2478 3100 3475 3487 3495 
024110 sosse §65154e $210¢ 5972 
DOISP = 177570 63Se 1179 
DELAY = 104414 1557¢@ 3451 3615 3621 3665 3671 3705 3763 3788 3804 3865 38690 
3941 3964 3962 4057 4116 4141 4200 4227 4297 4305 4400 4407 4468 
S484 &AOe 4509 4629 4964 5032 5496 5584 


DEVADR 006642 2332e 2366 23790 

DEVICE= 104415 1S34@ 2464 3150 3186 3226 3264 3302 3343 3394 3473 3517 3548 3591 
te 3714 3965 4152 4238 4776 3434 5487 5508 $511 $551 $573 5593 

OH1 032045 5876 $9720 

032070 5880 s972¢ 

OHS 032123 5884 S838 5900 5904 5908 $912 5916 5920 $928 $932 5936 5948 $952 
5956 5960 5964 $9726 

Ona 032135 $892 5896 S44 59720 

OvS 032164 5940 S9720 

OH6 te) 3 5968 SS720 

DISPLA 001162 1179@ 1656¢ 2095¢  2573¢ 

DISPRE 000174 1141@ 1656 

007214 1796e 1692¢ 1945 2490 2495@ 4691 

OLYTBL 032416 18692 59720 

DONFLG 001420 13200 ¢ 3956 3976¢ 

OSMR = 177570 634e 861178 

OTRO = 000400 1044@ 3373 

OTR1 = 001000 10450 

OTR2 = 002000 

OTRS = 004000 10470 

OTR4 = 010000 104860 

OTRS = 020000 10496 

OTR6 = 040000 

OTR7 = 100000 1051¢@ 

OT1 032276 $877 $972¢ 

oT2 032310 5881 39720 

OTS 032326 5685 3889 5901 5905 5909 $913 5917 $921 $929 $933 5937 5949 5953 
$957 5961 5965 $9720 

OT4 032334 5693 3897 5945 59720 

OTS 032352 5941 59720 

O16 032374 5969 59720 

OVALID= 100000 975@ 3522 3764 3886 4053 4515 5236 

DZACTV 001404 1306@ 1611¢ 1932¢ 19535 2605 2611 2693e 29864e 2988+ 2993 3012 

OZCRO 001500 1370@ 1701 1705 1612 2990 


CZDZA-HO 
CZDZAM.P11 
OZCRi 001514 
OZCR1O0 001640 
OZCRi1 001654 
OZCRi2 001670 
OZCRI3 001704 
OZCR14 001720 
OZCRIS 001734 
OZCRI6 001750 
OZCRi7 001764 
OZCR2 001550 
OZCRS 001544 
OZCR4 1560 
OZCRS 001574 
OZCR6 001610 
OZCR7 001624 
OZCSR 

OZLEV 030100 
OZLPR 

OZ2VO 001504 
OZVi 001520 
O2LV10 001644 
O2.V11 1660 
O2LV 001674 
O2Vi3 001710 
O2Vvi4 001724 
OZLViS 001740 
OZLV16 001754 
O2V17 001770 
O2v2 001534 
OZLV3 1550 
OZLV4 001564 
OZLVS 001600 
OZLV6 001614 
OZLV7 1 
OZMSR 

OZNUM =: 0011410 
DZPRT 030306 
OZRBUF 002046 
OZRIS 002074 
OZRIV 002072 
DZTCR 002056 


MACY11 SOAC1052) 19-JUN-84 
19-JUN-64 15:45 CROS 


1613 


16:22 
S REF 


PAGE 125 
ERENCE TABLE -- USER SYMBOLS 


H10 


58616 
2980 
4131 
5826¢ 


3992 
5430¢ 


4356 
4272 


3797¢ 
446Ce 


2962 
4189 
S629e 


4032 

543i 
45940 
4357 


3856 
4532e 


4215 
S83ie 


4267 
5433 


4791 
46220 


3936 
4605 


SEQ 124 

3267 3431 

38688 3937¢ 
4194 4206¢ 
4356e 4389 
4553e 4595¢ 
4882 4%Be 
Sa) 5493e 
4383 4442a 
58S52e 

4216 4273 

S632e 58335 

4325 4514 

5533 5623 

47920 4877s 
4679¢ 4791¢ 
39542 3962¢ 
4643 4686+ 








CZDZA-HO 
CZ0ZAH.P11 


MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 126 
CROSS REFERENCE 


U 


19-JUN-64 15:45 


4726¢ 


4960¢ 


2617 


1642 
3375 
4832 


1634e 


2626 
1682 
3587 


5172e 
3816¢ 
5163¢ 
4216 


42153¢ 


2930 
1912 
3651 


110 


5263 


2619 


TABLE -- USER SYMBOLS 


5433 
3959e 
5437 
4359 


4359e 


2629 


2879 


2927 


5437 
42196 
5503¢ 
4793 


4793 


2933 





SEQ 125 
$555¢  5563¢ 
44054 4472¢ 
S656e¢  5662¢ 
48786 4957¢ 
AG54e S022 





MACY11 SOAC1 
19-JUN-64 15:4 


052) 19-JUN-64 
) CROS 


2549 
2070 
25640 


2552¢ 
2071 


2073 


5310 


1908 
4709 


35540 
5865 


2744 


1677 


5699 
1725 


3034¢ 
5519 


3655 
4264 
4760 


1860 


16:22 PAGE 127 
S REFERENCE 


2076 


19106 
5261 


3670¢ 


2749 


1687¢ 


$742 
1776 


5605¢ 


3696 
4276 
4830 


1688 


J10 


TABLE -- USER SYMBOLS 


5849¢ 


5435¢ 


2754 
1637 


1785 


3744 
4932 


5436¢ 


2770@ 
1903 


1644 


56340 


3754 
4391 
4960 


5579 


5541¢ 
2926 


1879 


S835¢ 


5859¢ 


55420 


1938 


3856 
5028 


28645 


3935 
4579 


5414 


4023 
4597 


SEQ 12€ 


$732¢ 


4033 


5733 


K10 


SEQ 127 
CZDZA-HO MACY11 30A(1052) 19-JUN-64 16:22 PAGE 126 
CZDZAM.Pi1 19-JUN-64 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 
LINE? 001632 14366 
LOBITS 006644 2333¢ 2363 23800 
LOCK 001362 1293@ 2112 2114 2501¢ 2538 305S4e 30600 3066e 3072e 3326¢ %3355¢ 3374¢ 34130 
35660 3647 3737¢ 38633¢ 3907¢ 4014¢ 4071 4433¢ 4572 4649¢ 4824 4 
LOCKUP 027414 S614e 5619¢ 586094 
LOLIN 006636 2330e 62361 2377¢@ 
LPO =. =>—~«E00000 
LP1 = 000001 9936 
LP2 86= 900002 gone 
LPS) == 000003 995¢ 
LP4 = 000004 
LPS) =—s =:~-G00005 a976 
LP6 = 000006 FoHe 
LP7 = 000007 Sree 
MAINT = 000010 944@ 2101 2752 3136 3476 3489 
MANTO 001512 1375@ 1779 1658 2991 5972 
MANT1 001526 1 
MANT10 001652 1447¢ 
MANT11 001666 14566 
001702 1465¢ 
MANTIS 001716 1474@ 
MANTI14 001732 14834 
MANTIS 001746 1492¢ 
MANTI16 001762 1501¢ 
MANT17 001776 1510¢ 
MANT2 001542 1393¢ 
RATS 1 
MANT4 001572 1411¢ 
001606 1 
MANT6 001622 143 
MANT7 001636 14386¢ 
MASTEK 010766 eoAG 27300 
011075 1667 27306 
MCABLE 027745 5475 58236 
MCHAR 7612 1 5623¢ 
010716 1991 2545 27300 
MDATA 011376 e4ka 27740 
MEPASS 0535 19%) 27300 
MERRPC 011043 2543 27300 
MERRX 010743 1999 27300 
010574 27300 2807 2995 
MERRS 010643 1929 27300 
MINVAL 7536 5765 $8234 
MLINE 027564 $457 $8236 
MLOCK 010667 1964 27300 
MNEW 010771 1924 27300 
MNTFLG 001417 1319@ 2096¢ 2101e 2485 2747e 2752e¢ 2757s 
MODE 001370 _ 2099 2637¢ 3594 3648 3770 3872 4015 4040 4330 4500 4850 4923 
MPASS 5666 586230 
MPASSX 010732 1996 27306 
MPFAIL 010472 2723 27300 
MQUICK 027762 Says 
010560 1969 27300 
MREGAD 027466 5423 36 


562 
MSENAB= 000040 9460 3174 3445 $446 3476 3489 3695 3701 3753 3855 3937 4031 4108 


CZDZA-HO 
CZDZAM.P11 
MSPEED 027574 
MTERM 027720 
MTITLE 001000 
MTSTN 010754 
MVECTO 7444 
MVECX 010724 
taaHICH 027652 
NEXT 001360 
NOLIST= eeeese 
027432 
OP 7434 
SET 025214 
ONESTO= 000000 
OTHER 025442 
OuT 022372 
OVRRUN= 
PAR 001366 
PARAM = 104405 
PARAM1 006506 
PARER = 010000 
PARERR 
PARESE 
PARITY= 000100 
PARDO = 1044 
PARO 001510 
PARL 00. 
PARIO 001650 
PARI L664 
PARI2 001700 
PARIS 001714 
PARI4 001730 
PARIS 001744 
PARI6 001760 
PARI7T 001774 
PAROS 001540 
Pees 001554 
PARa 001570 
PARS 001604 
PARG 001620 
PART 001634 
PAMCH = 104416 
PIRQ = 177772 
PIRQVE= 
POPRO = 0 
POP1SP= 005726 
POP2SP= 
PRIO 027436 


MACY11 SOAC1052) 19-JUN-64 
CROSS 


19-JUN-64 15:45 
4132 


4191 


1699 


1656 


L10 


TABLE -- USER SYMBOLS 


16:22 PAGE 129 
4217 4276 4369 
$493 5520 5548 
2646 
2580 30Sie 3096¢ 
33470 3596 
a432e 4571¢ 46626 
5595 S75ie 5617¢ 
5379 $381 583 
4929 4936 4936 
4691¢ 5335 5337 
4745 5310 
3742 3927 
4996 S490e §8=— S491 
1715 1727 1787 
4745 5230 5236 
2345 2353¢@ 2360 
52216 
4930 4996 
1684 1889 
3030 4205 4235 
5601 58206 


AB Coh 4asa 
5562 5597 
3134e 31726 
3692¢ 
4623e 49226 
5606 5753¢ 
4997 
53460 
3979 4020 
5492 §5i2¢ 
1646 1661 
5310 
2362 cea 
4350 4355 


4544 


3210 
3736¢ 
49300 


5760¢ 
5006 


4090 
5513¢ 
1940 


4553 


3248 
38320 
5056¢ 


5619¢ 


5510¢ 


4262 
5516 
5416 


4379 
5594 


5424 


SEQ 128 
4880 4956 
3371¢ 3430¢ 
4065¢ 4166 
44a te 4577 
5595¢  5596¢ 
3456 





" Ppembpemeieei casement eee a a ae 


M10 


SEQ 129 
CZDZA-HO MACY11 SOA(1052) 19-JUN-64 16:22 PAGE 130 
CZDZAH.P11 19-JUN-84 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 
PR2 * 000100 6520 
PRS = 000140 6530 
pra s asae 
PRS = 000240 655e@ 5867 
PRE = 000300 8560 
PR7 = 000340 6S7@ 1116 1122 1629¢ 1959 3053 42863¢ 4594 4680 4682 477Se 53960 5466: 
S509¢ 5570e 
PSs = :177776 831 
PSu = 177776 6310 
PUSHRO= 010046 9350 
PUSHIS= 005746 3 
PUSHOS= 024646 9370 
PURVEC= 000024 922@ 1637¢ 1638 2692¢ 2693¢ 2702 2706¢ 2720 2721 
QUITS 026516 56170 5649 
* 010000 1015@ 3926 48629 4832 4848 4859 S515 5596 
RDATA 027422 
> 3433-3757. s«37862— «3807s 3859) 3888 CK0SS 4136 4221 43030-4410 
RECDAT 027440 S533e 5536 5540 S541 55430 SS44e S545 S623e 5626 S629 05632 S637 0 SE A2* 
5643e (56440 58210 
REGIST 001400 1304@ 38S3e 40320 4865e S232e 5972 
007514 25620 
RESTAR 012106 26720 
= 000010 917¢ 
RESOS = 104410 1545@ 2562 
RIE = 000100 9a7@ 3250 3476 3489 4132 4217 4315 4356 4595 4683 4860 4882 4956 
4%2 502% 5030) 0« S252. si S3460—s«SS20.—s—« SS62—Ss«S'S97 
RINGO = 000001 10550 
RING1 = 000002 1 
RING2 = 000004 10570 
RINGS = 000010 10586 
RING4 = 000020 10590 
RINGS = 000040 10600 
RING6 = 000100 1061¢ 
RING7 = 000200 
RLO = 00000 
1 = 000400 9816 
RL2 = 001000 94.20 
RLS = 001400 $636 
m4 « 9640 
aS = one 
RL6 == 003000 Sabo 
RL7 = 003400 9876 
RSTART 021714 46670 
026740 Mn es 
001406 1307@ 1643e 2611 26146 2615¢ 2622¢  2623¢ 
RXISR1 925002 4876 «= 53080 
RXSVC 022214 4679 «= 47310 
RXTCR 022472 M6660 4769¢ 47960 
SAVLIN 001372 1301@ 36960 «= 3715e «37500 «= 33768 «= 3798e «= 3799S 38462 «38700 S3902e «= 39030 3925* «= 396 90 
397Se 39900 39940 4029¢ 4038 4067¢ 4096e 4161 4270e 4280e 4342 4367¢  4393¢ 
44460 4456 44968 4 45340 4SBSe | 46030 464Se@ 47130 «47380 «47560 47780 «47862 «= 48268 
4861e 48620 4942¢ S010 S2i2e S225¢ 5263 S265e S267e S323e S324e S343e S3440 
$461 5545 56440 «S751 s«S7S2.—Ss« 53972 
SAVMUM 001411 1309@ 1639¢ 18604e 2001¢ 2003¢ 2963 
SAVPC 001402 1305@ 2386 


2 
SAVOS = 104407 1342@ 2519 


 .;_ low 
N10 


SEQ 130 

CZDZA-HO MACY11 SOAC 1052) 19-JUN-64 16:22 PAGE 131 

CZDZAM.P11 19-JUN-64 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 

SCOP1 = 104401 1s24e@ 3064 3352 3400 3626 3676 3796 3817 38698 4066 4533 4554 aead 
2054 2507 25900 2615 4889 5214 5505 5525 5612 

SET 027214 Saba $751¢@ 

SETAPT 012112 1669 

SE * 1 1539@ 1778 

SET.PS 011440 1117 27770 

SET1 027246 S756 $7590 

SEVEN = 000020 10034 

SEVENS= 000060 1007¢@ 

SILOAL* 020000 900 63435 4476 4482 4516 4617 4627 4739 

SILOEN= 010000 9490 8=63212 3476 4454 4544 4553 4595 

SIX =» 000010 1002¢ 

SIxXS = 1006¢@ 

SHAS 4690@ 4770 

SPACNT 007117 24550 

SPEED 027430 3491 $513 5594 S768e  5615¢ 

SPIN 5615 5652 

STACK = 001120 621¢@ 1 1956 2561 $397 5467 

STFLG 027412 S400e = S455e |= 5472 Saiv4e 0 =—S5478 5480e 5606¢ 

STKLMNT= 177774 8320 

STOP 001462 13390 3850 445) 4569 4677 4635 4868 4950 5016 

Svo5 006654 23900 

Side 001160 1176@ 16535 1657¢ 1675 1679 1799 1833 1905 1922 1927 1932 1935 1962 
2065 2063 2110 2117 2508 2513 2571 2576 2578 2590 2614 261S5¢  2640¢ 
264Se¢ 2646¢ 2647¢ 2654¢ 2700 2713¢ 2641 2912e 5405 5440 5506 

SWREG 000176 1142@ 1657 

SWwO = 000001 885¢@ 

SWOO = 000001 685 1675 5405 

SWO1 = 000002 8740 S54 2641 5440 

swo2 8730 683 

SWOS = 000010 8720 B82 799 1633 

SWO4 = 871¢@ 661 1935 

SWOS = 710@ 880 

SWO6 = 000100 8690 879 1922 

SWO7 = 6686 6768 

SWO6 = 000400 8670 677 2576 

SWO9 = 001000 8660 876 2110 

Sil = = 000002 B54 

SWi0 = 002000 665@ 2576 

SWi1 = 004000 8o46 

SWi2 = 010000 663@ 2117 2508 

SWi3 = 020000 662@ 2515 

SWi4 = 040000 6616 

SWiS = 100000 860¢ 

SW2 = 000004 683¢ 

SWS = 000010 862¢ 

SW4 = =": 000020 661¢ 

SWS = = 000040 8808 

SW6 = 000100 679@ 

SW7 == 000200 8780 

SWB 3== 000400 877¢@ 

SW9 == 001000 876¢@ 

$110 = 001000 1019¢@ 

= 003400 1024¢@ 
$134 = 001400 10206 





gnreseens Bil 
SEQ 131 
CZDZA-HO MACY11 SOAC10S2) 19-JUN-84 16:22 PAGE 132 
CZDZAN.P11 19-JUN-64 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 
$1S0 = 002000 10210 
$1800 = 004000 1 
$19200* 007400 10320 
$2000 » 004400 10266 
$2400 = 005000 10270 
$300 = 002400 10220 
$3600 = 005400 10266 
$4890 = 006000 10290 
$50 = 000000 1017@ 4829 4832 
$600 = 003000 10230 
$7200 = 006400 10300 
S75 = 000400 10180 
$9600 » 007000 10316 
TABLE2 027310 759 «$7740 
TBITVE* 000014 9186 
TOUF 027442 $361 
TCCONT 024206 5071 5083) 51480 
TORO = 000001 0 3325 
TORI = 000002 10370 
TCR2 = 000004 10380 
TORS = 000010 10390 
TCR4 = 000020 10400 
TORS = 000040 10410 
TCR6 = 000100 1 we 
TCR? = 1043¢ 
TOATA 027420 $8110 
001422 13230 38648 3669s 3885) 38990 «41340 4219 44KB 4720 AAT3@ «045870 4513 46 140 
4615 4625 4675) 0s «47230 AT2Me «4833 4866 4988S S016“ S270“ S27le = $275 
101 001424 13240 
001426 13250 
TO3 001430 
001432 13270 
TOS 001434 13280 
TO6 001436 
107 001440 13300 
TEIGHT 002140 16140 
011334 27720 
TEST1 025630 $477 $487@ $507 
TEST2 026266 $47 55700 
TFIVE 002146 16170 
TIE = 040000 9510 3288 3476 4108 4126 4191 4206 4211 4314 4356 4548 4553 4684 
4958 «= « S026.—«‘«S248=—s« 28S S597 
TKVEC = 000060 9250 
TLAST = 023730 2066 $9720 
TLO = 000000 9590 
Mi = se 
TL2 = 001000 wie 
TL3 = 001400 S20 
TL4 = 002000 9658 
TLS = 002400 46 
TL6 = 003000 eaSe 
1L7 = 003400 Shi@ 
002102 15960 5336e 5340 5342 
= 000064 9266 
TRAPVE= 000034 924@ 1635¢ 16360 
TROY © 100000 9520 3436 3442 3695 3703 3761 3814 3863 4111 4194 4466 4607 4623 


Cil 


SEO 

_ CZDZA-HO MACY11 SOAC1052) 19-JUN-64 16:22 PAGE 133 132 

| CZDZAM.P11 19-JUN-64 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 

| TRTVEC* 000014 9190 

| TRO 001442 13310 4758 4760s“ 47660) «4767S 47820—S«s« S235)“ S$238)=— «$2800 «S284e «= 5318 «= $320 S$ 3:260 

| Tra 001444 13320 

TR2 1446 13330 

TRS 001450 13340 

TRA 001452 13356 

TRS 001454 13360 

TRE 001455 13370 

TR? 001460 1 

TSEVEN 002142 1615¢ 

TSIX 002144 16160 

TST1 013086 2654 2670 30480 

TST10 013764 33200 

TST11 014122 33680 

TST12 014306 3371 34270 

TST1S 014422 3430 

TST14 014552 3472 s«35130 

TST1S 014642 3516 

TST16 014726 7 33820 

TST17 015122 3565 36430 

TST2 013236 3 

TST20 015250 

TST21 015404 3692 37330 

TST22 015742 3736 0: 38290 

TST23. 016270 3632 39200 

TST26 OL 3923 4010 

TST25 017100 4013 rs 

TST26 017410 4165e 

1ST27 017736 4168 

TSTS 013322 3098 40 s«31316 

TST8O 020370 43710 

TST31 4374 

TST32 021304 44320 45680 

TST33 021666 4571 46590 

TST34 022474 4819 

TST3S 0232046 4823-49198 

TST36 023456 4922 («49870 

TST37 023730 4990 5055@ 5972 

1STa 013414 3134 6-316 98 

TST4O = esesse VY 

TSTS 013506 3172 32070 

TST6 013600 3210 32450 

1ST? 013672 

TTABLE 024112 $1250 5173 

TTST 005140 1965e 1967 20560 

TWOSTO= 10136 4a32 

TXSVC 022116 4681 47060 

TYPDAT 00 2535 2555 25560 

TYPE © 104402 15270 1665 1743 1666 1867 1911 1924 1929 1964 199 1990 1991 1993 
1996 1999 2165 2265 2318 2411 2444 #2536 2537 2540 2541 2543 2545 


eee 2551 23556 2616 2616 2676 2722 2807 26435 2663 2668 2995 3475 








ee rv aia i ] 


D11 


CZDZA-HO MACY11 SOA(10S2) 19-JUN-64 16:22 PAGE 134 
CZDZAN.P11 —19- JUN-64 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 
T134 002110 16020 
1150 002112 16036 
T1800 002 1607¢ 
T2000 002124 16086 
T2400 002126 16796 
T300 002114 16040 
73600 0021 16108 
T4800 0021 1611¢ 
TSO 002102 1 
T1600 002116 1 
T7200 002134 16120 
17S 002104 1 
T3600 002136 16136 
012654 3o02e 
VEC1 025260 
VEC2 025270 54070 
UCHFLS 027410 54a5 5469 58070 
007114 24190 24450 «24530 
wTBS.F 007470 2550 
XBEGIN S441 54660 | 5669 
xBX 2511 2513¢ 
XCSR 005072 1992 
XEOP * 026724 5510 S552. S572 S618 56650 
XERR; 005114 20330 
XMEAD 011050 1911 27308 
XMTCNT 001376 1303@ 48740 49476 «S015 $275 
001374 1302@ 4627¢ 48376 4839 40 4864 
XTSRV 4875 4954 52610 
XPASS 005106 1997 
XSTART 025216 1146 53978 «5399 
XSTAT@ 011140 1918 27300 
XTORO 
XTCRI 027236 57550 S758 
XTSTN 007644 2542 «25870 
005100 1994 6.20278 
XX = 160210 1368@ 13770 1386@ 13950 14040 1413 14220 14310 
14850 14940 © 1503@ 915120 
YY = 000500 13680 13770 1386@ 13950@ 14060 14130 14220 14310 
14850 14940 «1503@ = 15120 
ZZ = 000020 13680 13770 13860 1395@ 14040 14130@ 1422¢ 14310 


1195@ 1196¢ 





14406 
14400 
14406 


1449¢ 
1449¢@ 
14490 


1458¢ 
1458¢ 
1458¢ 


SEQ 133 


14670 
1467¢@ 
1467¢@ 





1476¢ 
1476¢@ 
1476@ 





Ell 





| SEQ 134 
CZDZA-HO MACY11 SOAC10S2) 19-JUN-84 16:22 PAGE 135 
CZDZAN.P11  19-JUN-84 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 
scene» 000014 1190 1191 11920 11930 1194@ 11950 11960 
SHS = 000006 1188@ 1190 
sca = 000004 1196@ 11978 1196@ 11998 12000 
sCPUOP 001262 12230 
SCRAP » 177777 7960 3041@ 30460 30880 3093 31220 4931290 «931608 31678 3196 32050 32360 32430 
3274@ 3261@ 33120 33160 33590 33660 34170 34250 34580 34670 935060 4035118 +9 35370 
35420 35790 36300 «36410 «6810 «= 36870 «= 3721e «= «37318 «38210 «36270 «= 39118 += 39186 
38356 4074@ 4080@ 41570 41630 42430 42520 43620 43690 44150 44270 45590 
45660 46510 46570 48000 48170 4905@ 49170 49740 498650 5041@ 50530 
scmF 001231 1202@ 2166 2220 2411 2536 2537 2547 2676 2843 2863 
s00W0 001320 1253@ 1814 2691 2928 
$00M1 001322 12546 
s00W10 001344 12630 = 
80011 001346 12640 
$00W12 001350 1265¢ 
s00U13 001352 12660 
s00M14 001354 12670 
s00W1S 001356 12680 
s00M2 001324 1255¢ 
$00MS 001326 12566 
s00us 001330 12570 
$00W5 001332 12586 
s00W6 001334 12590 
$00U7 001536 12600 
s00M8 001340 12616 
s00W9 001342 1262¢ 
SOEVCT 001244 12140 
vi 001312 1250@ 1802e 1 1810 1811 1927 28692 29936 
005066 2002 2009 2014 20200 
sE = = 000041 796@ ©3051 3098 «6: 3099) 3134.0 «3135@ «3172,s«3173@ «=«3210s« 32118 «3248 «2 32490 
3206 32870 «03323. 3324@ «3371 «2S 33720 «34300 34310 «3472034730 «3516 «= 35178 «= 3547 
35486 35870 3645 36480 93692 4036930 «3736037380 «03832038340 «= 3923 e 
4013 4065 40860 
4823 
2°69 


MACY11 SOAC1052) 19-JUN-64 
CROS 


19-JUN-64 15:45 


2067 
2708 


2523¢ 


2220 
22700 
1647 
3597 


27270 

2565 

1968e 1970 
S399 86S471¢ 


16:22 PAGE 136 
S REFERENCE 


Fil 


TABLE -- USER SYMBOLS 


2105 


2094¢ 
S477e 


2096 
5482 


2105 


2580¢ 


2582 


2661¢ 


2862¢ 


SEQ 135 


2870¢ 


2672 





| G11 
SEQ 136 


CZDZA-HO MACY11 SOA( 1052) 19-JUN-64 16:22 PAGE 157 

CZO0ZAH.P11 19-AUN-64 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 

SRTNAD 005070 2022¢ 

SSAVR6 010470 2701¢ 2709 2710e 271le 27290 

$SCOPE 005122 1631 2052¢ 

$SETUP= 000000 2004 2053 

$SVLAD 005320 2074 

$SVPC = 000040 1133@ 861138 

sSWR = 164000 608 1200 1201 1962 2004 2015 2021 2023 2046 2047 2048 2049 

2077 2079 2080 2061 2062 2063 2095 2105 2726 L049 3096 3132 

3170 3208 3264 3321 3369 3428 3470 3514 3545 3583 Mead 3690 
pibed 38630 3921 4011 4083 4166 4255 4372 4430 4569 48620 4920 

$SWREG 001256 1221¢@ 2912 

$ 2 

$TESTN 001240 1212@  2093¢ 

$TIMES 001226 ¢ 2062¢ 2066 2091e 2 2610e 46226 

Ey 001166 1161@ 1747 1753 2061 2063 2191 2196 2220 2291 2297 2311 2593 2600 

1 2626 2657 2664 $524 5611 

$TKS 001164 1160@ 61745 1751 2059 2189 2196 2220 2289 2295 2596 2612 2619 2626 

sTePO 8 8=—:001216 1196@ 4546e 455ie 4626¢ 486350 4841e 79 

sTPi1 001220 hd 1744e 1 1803 1804 1605¢ 1913¢ 2732 4872e¢ 48864¢ S2962 5336 5340 

sTeP2 001222 1196@ 1610e 1616¢ 1617¢ i1914¢ 1915 2734 S294e 5297¢ 

sTePS 001224 11998 73¢ S295¢ 

s™¥ Os 3047 30490) «=— 3094 3096@ 3150 3132@ 63166 31700 
3262 3319 3321@ 3367 3470@ ©3512 3514@ 35435 
33450 3642 5644 % 3690@ 3732 3734@ 38626 $8300 3919 3921¢ 
4009 4011¢@ 4061 4063@ 4164 4166@ 4253 4255@ 4370 43720 4426 44300 4567 


sTPB 001172 1163@ 1765e¢ 2209¢ 2220 23ile¢ 2512¢  26435¢ 

STPFLG 001177 1167@ 2139 2220 

$ 001170 11620 2220 2309 2510 2641 

STSTM 001466 

$TSTNM 001122 1160@ 1646¢ 2045 2092¢ 2095 2095 2106 2589 2850 28659 3049e 8630962 «=: 331528 
3170e 32086e 32460 S264e 33219 3369¢ 3428 3470e 3514e 3545e 3583¢ 36440 35690¢ 
S734e 60638300 §«=6S8921e §86940llie §«—4063e 69641660 4255¢ 43720 44300 45692 4660e 48202  4920¢ 
4908s 5486 SS71e 

$TYPE 21 2251 

STYPEC 005652 2169 2176 2183 2188¢@ 

STYPEX 006002 22153 2215 2218¢@ 

SUNIT 12150 

SUMITH 001472 13610 

SUSUR 001260 

$VECT1 001304 1247@ 1720e 1734e 1735¢ 1736¢ 1737¢ 1738¢ «61739¢ 2661 2684 3033¢ 

$VECT2 001306 12460 

$XOFF = 000023 955@ 1749 2193 2220 2293 2595 2625 2659 

$XON = 000021 Ske 4 1759 2061 2200 2207 2220 2299 2303 2602 2605 2630 2633 

$XTSTR 005176 2057 2068¢@ 

$Y = 000020 1514@ 1521 1523@ 1524 1526@ 1527 1529@ 1550 1532@ 615335 1535@ 1536 1538¢@ 


1539 1541@ 1542 1544@ 1545 1547@ 1548 1550@ 1551 1553@ 1554 1556@ 1557 
1559@ 1560 1562@ 1563 1565@ 1566 1568¢ 


$¢GET4= 000000 2015¢ 
$40CAT= seeees VU 2065 
= 001514 1112@ 861113 1116@ 1120@ 1133 1134@ 1136@ 1138@ 1140@ 1143¢ 1145@ 11494 1157¢ 
1204 1306@ 1306@ 1321¢ 1346 1347@ 1349@ 1351¢@ 1366@ 1370@ 1371 1372@ #« 1373¢ 
pensation 





| Hii 


CZDZA-HO MACY11 SOAC 1052) 19-JUN-64 16:22 PAGE 136 
CZOZAH.P11 19-JUN-64 15:45 CROSS REFERENCE TABLE -- USER SYMBOLS 


1374@ 1375@ 135790 1361¢@ 13620 13630 
1393@ 1397¢@ 13s99¢ 61 1401@ 1402¢ 
1415@ 1416@ 1417@ 1416@ 1419 14200 1424¢ 
1434e@ 1435@ 1436@ 14376@ 14 1442@ 14430 
1453e@ 1454@ 1455@ 1456@ 14600 1461¢ 
a 1473@ 14740 1478@ 14799 1 14816 
1491@ 1492@ 1496@ 1497@ 1496¢@ 14990 
1510@ 16 i 2023 2105 2106 
2 2771@ 2773@ 2775@ # 2785 2953 
4291 4310 4388 4347 4451 4456 
4618 4624 a£a7 4654 4707 4720 4732 
4869 4951 $019 5142 $531 554 
S633 5640 56 59720 
.ADvVAN 007216 1S22 25006 
“ IN 19586 
.CHVRT 006744 1552 
.CONVR 006740 1549 2411¢ 
.DCLAS 007164 1567 
. 007176 1558 
-DEVIC 007144 1555 24760 
-ERRTA 030312 5671¢ 
-INSTE 006426 1s 23166 
-INSTR 006252 1531 2261¢ 
-INST1 006272 2319 
. MSG 006274 226 
-PARAM 006446 1537 23270 
-PARPD 026744 1561 5672¢ 
-PAMCH 027140 1564 $731¢@ 5743 
-RESOS 706 1546 
- SAVOS 1543 23be 
-SCOPE 005122 1121 30s 
-SCOP1 005376 21106 
011152 1 27: 2761 
- START 1144 1626@ 1647 
007122 1127 1635 2465¢ 
-TRPTA 002002 1820@ 2470 
-TYPE 005422 1526 2117¢ 
-SASTA= sesese 2224 


-$X = 001462 1346@ 81351 





CZ02Z 
CZDZAM.P11 


COMMEN 
ENDCOM 
ERROR 


begee 


Pw 
3 


dugazezeteceesneces 


ake 


SeeEtty 


rs 


SeREEEEEEEEGECCUU 


1709 


4127 
1377 


3634 
4155 


MACY11 3OAC105S2) 19-JUN-64 
19-JUN-64 15:45 CROS 


3095 
3733 


4165 


3168 
3919 


2714 
2694 


3131 
3829 


1207 
4061 


1784 


4212 
1395 


4169 


2700 


3169 
3920 


1642 


4953 
1404 


4256 


Iii 


16:22 PAGE 140 
S REFERENCE TABLE -- MACRO NAMES 


3154 3179 
350 3363 
3619 
3897 3944 
4203 4209 
4403 4412 
4701 4706 
$237 5243 
5616 5622 
3244 3282 
4061 4164 
3207 3245 
4010 4082 
1345 1352 
3319 3367 
4 4370 
3677 1937 
5021 
1413. 1422 
4375 4434 


3319 
4253 


3283 
4165 


1980 
4426 


2844 


1431 
4573 


3367 
4370 


3320 
4254 


ag 


1440 


3368 
4371 


2124 
3512 
4658 


1449 


3427 
4429 


1458 





3512 


3469 
4568 


1467 


SEQ 138 
3255 3261 
3454 = 3480 
3759 3766 
4064 4119 
4300 4308 
4520 4531 
4755 4765 
5345 §501 
5646 5657 
3543 3581 
4618 4918 
3513 3544 
659 4619 
2706 3047 
3642 3688 
4986 5054 
1476 1485 


CZDZA-HO 
CZOZAH.P11 


aj 


STETTereee ey: 


TELS 


a 


guvaaggaaagaaagcetesaceet 


MACY11 SOAC10S2) 19-JUN-64 16:22 PAGE 
19-JUN-64 15:45 CROSS REFERENCE 


3739 


3835 


3158 
3535 


4017 


3196 


4039 


4087 


3234 


4151 


3272 


141 
T 


Jil 


ABLE -- MACRO NAMES 


4170 


4237 


1539 


3261 
4163 


3159 


3466 
3910 
4565 


3282 
4ita 


4259 


1542 
3318 
4252 


3166 
3505 
3917 
4650 


3319 
4253 


4376 


1545 


3366 
4369 


3197 
3510 
3996 
4656 


3367 
4370 


4435 


1548 


4574 


3468 
4567 


4663 





SEQ 139 
4644 4925 
1557 1560 
3542 3560 
4617 4917 
3273 3280 
3578 3629 
4156 4162 
4916 4973 
3543 3561 
4818 4918 









SEQ 140 


K11 
CZDZA-HO MACY11 SOAC1052) 19-JUN-84 16:22 PAGE 142 
CZGZAH.P11 19-JUN-64 15:45 CROSS REFERENCE TABLE -- MACRO NAMES 


000 


ERRORS DETECTED: 0 s' 


CZDZAH, CZDZAH/CRF /SOL/NL : TOC =CZDZAH.P11 
RUN-TIME: 24 19 2 SECONDS 

RUN-TIME RATIO: 132/46*2.6 

CORE USED: 36K (75 PAGES) 





